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To the Reader 



Assuming no prior knowledge of computers, this book serves as your "road 
map" into the world of ATARI* Computer sound and color graphics. While 
exploring, you will learn to speak the most commonly used computer 
language in existence today: BASIC. It is a simple language to learn and 
most computers (large or small) can be programmed using BASIC. 

ATARI Sound and Graphics emphasizes recreation and artistic express- 
ion. As you use this book you will not only learn a number of "useful" 
things about computers, but will also experience the pleasures of creating 
beautiful colors, shapes, and sounds with your ATARI Computer. 

With this book you can easily learn to create exciting sound effects, some 
of which you may have already heard in various arcade games. And since 
the graphics capabilities of the ATARI 400 and ATARI 800 Computers are 
not only powerful but easily accessible, you will also find yourself creating 
colorful figures very quickly. 

Later in the book you will get a taste of music theory and will create your 
own melodies and be able to see them play on the screen. 

ATARI Sound and Graphics is meant to be used, along with the ATARI 
400 or ATARI 800 Computer so you can try each new concept as it is 
presented. After all, seeing and hearing each new sound or color produced 
by the computer is the part that's most fun. The fundamental grammar and 
logic of ATARI® BASIC is presented in a step-by-step fashion, with an 
emphasis on interaction and exploration with your computer. As you learn 
new concepts and techniques you will often be encouraged to apply them 
to your own artistic creations. 

So whether you are a teacher wishing to prepare audio-visual aids for 
your classroom, an artist or musician seeking to explore the world of 
computer sound and graphics, or someone who just wants to play with the 
computer, this book and an ATARI 400 or ATARI 800 Computer will 
provide you with hours of pleasure and a great amount of useful know- 
ledge. 

Now take a look at "How to Use This Book," and then go on to learn about 
ATARI Computer sound and graphics! 

* ATARI* is a registered trademark of Atari, Inc. 
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How to Use This Book 



With this book's self-instructional format, you'll be actively involved in 
learning BASIC for the ATARI Computer. The material in each chapter is 
presented in short sections, each of which teaches you something new 
about ATARI® BASIC and gives you a question or asks you to write a 
program. Correct answers are given following the dashed line. For the most 
effective learning we urge you to use a thick paper to keep the answers out 
of sight until you have written your answer. 

You will learn best if you actually write out the answers and try the 
programs out on the computer. The questions are carefully designed to call 
your attention to important points in the examples and explanations, and 
to help you learn to apply what is being explained or demonstrated. 

The Self-Test at the end of each chapter can be used as a review of the 
material covered in the chapter. You may test yourself immediately after 
reading the chapter. Or you may wish to read a chapter, take a break, and 
save the Self-Test as a review before you begin the next chapter. To go 
further in applying what you have learned, do the Challenges following the 
Self-Test. Answers are not given for the Challenges. 

This is a self-contained book for learning ATARI Computer sound and 
graphics, but what you learn will be theoretical until you actually sit down 
at a computer terminal and apply your knowledge of the computer lan- 
guage and programming techniques. So we strongly recommend that you 
and this book get together with an ATARI computer. 



Introduction 



The language you will be learning in this book is ATARI® BASIC, a very 
simple form of an English-based language for computers. BASIC is under- 
stood by many computers. ATARI BASIC also has some special vocabulary 
for creating sound and color graphics. 

As you use this book, keep in mind a few things about your interaction 
with your ATARI 400 or 800 Computer. 

First, remember you are learning ways to tell your computer what you 
want it to do. You'll learn to speak a language the computer understands. 
Computer programmers of all skill levels think in terms of computer lan- 
guages. 

Second, although this book focuses mainly on sound and graphics, you 
will also learn many skills that will be valuable to you as you find other 
ways to use your ATARI 400 or 800 Computer. 

You will learn many introductory programming techniques. Many of the 
sounds you will learn to create can be found in today's arcade games, and 
the graphics can be equally innovative — creations that are fun and exciting 
as you devise your own ways to use them. If you wish to learn more 
conventional music, we suggest you also consider the Music Composer® 
and the Video Easel ®, programs for the ATARI Computer. 

When you are learning to speak another language — such as Spanish or 
French — the more you practice and learn, the more you understand. The 
same is true with ATARI BASIC. As you begin to understand the machine 
more fully, you will find it easier to get the machine to do what you want it 
to do. 

Remember also, if the machine doesn't understand you, it's not because 
of any lack of intelligence on your part. The computer has a very specific 
language, and if you start to speak another dialect or become too subtle, it 
can easily become confused. 

Be patient with your computer. And most of all, remember it's not the 
computer telling you what to do, but you telling the computer what to do! 
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CHAPTER ONE 

Getting Started — 
The Sound Statement 




When you turn on the ATARI* Computer,** you'll know that it is ready 
when the screen looks like this: 




'Indicates trademark of Atari, Inc. 

* "This book does not try to tell you how to hook up the machine. That is explained very well in 
the ATARI 400 or 800 Operators Manual you received with your machine. It's easy to do, so we 
will assume your computer is "up and running." 
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You tell the computer what you want it to do by typing instructions, 
called commands. 

The little square just below the word READY is called the cursor. As you 
type instructions, the cursor moves across the screen, so you'll know where 
the next letter will appear as you type it. 

Before you begin, look al this diagram of the ATARI Computer's 
keyboard. Arrows point to two important keys (RETURN and SYSTEM 
RESET) you will learn to use in just a moment. 




QOQOOOQ 
IQO0OQBI 




Now that you've looked over the keyboard, you're ready to give the 
machine a command. Type 

SOUND 0. 121, 10,8 

Be sure to type it exactly as you see it here. The computer is very particular 
about punctuation, so be sure to use a comma between numbers. It is also a 
very literal machine and is not able to guess what you mean; you must tell it 
exactly. Don't use substitutions such as the letter "o' for zero (0) or the letter 
"1" for the number 1, as you might on a conventional typewriter. 

As you can see on your screen, the zeroes in the SOUND statement 
contain a slash mark (0), whereas the "o" in the SOUND does not. So 
remember that on the screen: 

is a zero 

O is the letter "o" 

What if, while typing your SOUND statement, you press a wrong number 
or spell "SUUND" or "SOUD," and realize you've made a mistake? It's easy 
to fix. 

Just press the DELETE BACK S key near the upper right side of the 



DELETE 
BACK S 
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keyboard. This moves the cursor back (to the left) as many spaces as you 
want and erases the error. Then type the correct letters or numbers. 
Okay, do you have a SOUND command that looks like this? 

SOUND 0, 121, 10,8 

If you do, press the RETURN key and the machine will produce a single 
tone that is approximately the note middle C. 

Can you hear it? Be sure the volume on your TV is turned up to a 
comfortable listening level. 

The tone will stay on. To stop the tone type: 



END 




and press RETURN. 

You can also stop it by pressing the SYSTEM RESET KEY (the yellow key 
at the upper right corner of the keyboard). When you do this, the sound 
stops and you see this again on the screen: 



READY 



But what happens if you make a typing error in your SOUND statement 
and don't notice it? Suppose you put a period instead of a comma between 
10 and 8, so it looks like this: 



SOUND 0, 121,10.8 
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If you do this and press the RETURN key, instead of a tone you'll get an 
ERROR message that looks something like this: 

ERROR - SOUND 0, 121, 10.8 

An ERROR Message is the machine's way of telling you it doesn't under- 
stand. Don't let an ERROR message upset you. The most advanced compu- 
ter people get ERROR messages all the time. It only means that you have to 
find a different way to tell the machine what you want it to do. 

Enough of ERRORS for the moment and back to the SOUND statement. 



* 



PARAMETERS 

Each number separated by a comma in the SOUND statement can be 
changed to give the statement a different meaning. A number that affects 
the meaning of a statement is called a parameter. The SOUND statement in 
ATARI BASIC consists of four parameters. 

Voice Parameter 

The first parameter in the SOUND statement you've been using is the voice 
parameter. Your ATARI Computer has four voices, just like a barbershop 
quartet. ATARI BASIC counts voices a little differently from people 
though. It numbers its four voices (3,1,2,3. 



SOUND 0,121,10, 10 




Voice 1 can play the same note like this 

SOUND 1, 121, 10, 10 




Now you type a SOUND statement for voices 2 and 3 to play the same note. 
You'll get a chance to combine the voices with different notes soon, but 
for the moment let's stick with the first voice. That's voice (zero) in the 
ATARI BASIC'S SOUND statement. 
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Note Parameter 

The second parameter in your SOUND statement is the note parameter. To 
get a feel for the note parameter, try this exercise: 
First type: 

SOUND 0,243,10,8 

and press the RETURN key. 

You should hear a nice low note played by the computer. 
Now type: 

SOUND 0,60, 10,8 

and press the RETURN key. 

Type END and press RETURN if you want to stop the sound. 

By now you may have begun to realize that any time you give the 
computer a command, you must press the RETURN key to have the 
machine execute that command. So we'll stop telling you each time, 
although we will remind you occasionally. 

Low numbers play high notes! 
High numbers play low notes! 




Using ATARI BASIC, you can play 256 different notes numbered from 
to 255. When it comes to notes, not only does the computer start counting at 
zero, but it also counts backwards from the way we humans count. That is, 
it gives the highest notes the lowest numbers and the lowest notes the 
highest numbers. So 243 for the note parameter is a low note, while 26 is a 
high one. 

Let's write a SOUND statement so the note parameter is a variable called 
N. That's simply a way of saying you can make N equal to different 
numbers, in this case numbers between (3 and 255 inclusive. 

Now it looks like this: 

SOUND 0,N, 10, 10 

(The letter "N" here represents a number. You may substitute a number 
from to 255 for N in this SOUND statement.) 

Try different numbers for the variable N to get a feeling for some of the 
notes that your ATARI Computer can generate. Remember to use the 
RETURN key after each new command! 



6 ATARI SOUND AND GRAPHICS 



Tone Parameter 

The third parameter in the SOUND statement is the tone parameter. "Tone" 
here is different from the tone control on your radio. To get the idea of some 
possible "tones" you can produce, try this. 

First go back to the original SOUND statement: 

SOUND 0, 121,1SZ(, 10 

This makes a nice "pure" musical tone. 

But you can make a sound something like a motorcycle cruising down 
the highway by simply changing the value of the tone parameter to 4 
instead of 10. If you do that, the SOUND statement will look like this: 

SOUND 0, 121,4, 10 

You can make a variable out of the tone parameter in the same way you 
did with the note parameter. The statement would then take the following 
form: 




SOUND 0, 121, T, 1 



There are eight possible "tones" available in ATARI BASIC, indicated by 
even numbers from to 14. There's no particular reason for them being 
even numbers other than that's the way the machine was designed. 

If you use an odd number like: 

SOUND 0,121,5,10 

it won't make a sound. 

Note: to 255 

Tone: 0,2,4,6,8,10,12,14 

Try different numbers for the variable "T" in the SOUND statement to see 
which ones you like. The values 10 and 14 should give you a very pure 
sounding tone. The other values give a variety of buzzing and scratching 
sounds. You'll explore these later when you get into creating sound effects. 
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Loudness Parameter 

The final parameter in the SOUND statement is the loudness parameter. It 
has sixteen possible values, numbered from to 15. The lowest value, 
which is 0, makes no sound. Later, you will see how this can be used as a 
way to turn off a note. 




SOUND 0, 121, 10, L 

The highest value of the loudness parameter is 15, the loudest tone. (Of 
course, all this depends on where you have the volume on your TV.) 
First, try a value of 2 for "L" in this statement: 

SOUND 0, 121, 10,2 

Then, try 15 for "L": 

SOUND 0, 121, 10, 15 

Now try a few more values of your own choice to get a feeling for the 
loudness parameter. 

You have now explored all four parameters of the SOUND statement. 

Here's a brief summary of what you've learned so far. This section may be 
helpful as a quick reference as you continue to explore on your own. 

Defining each parameter as a variable, you can write the SOUND state- 
ment like this: 

SOUND V,N,T,L* 

V is for Voice Numbered through 3. 

(Four voices — Zero is the first voice) 
N is for Note Numbered through 255. 

(0 is the highest pitch, 255 is the lowest) 
T is for Tone Even numbers through 14. 

(Odd numbers won't work — 10 and 14 are "pure" tones) 
L is for loudness Numbered through 15. 

(0 is the quietest, 15 is the loudest) 



*You can use any name you wish for these variables. For example, in the ATARI 400/800 
BASIC Reference Manual, Pitch is used for the parameter we've called Note, Distortion is used 
for what we've called Tone, and Volume is used for the fourth parameter where we've used the 
name Loudness. Use whatever variable names vou like. 
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COMBINING VOICES 

Suppose you want to hear two voices together. To do this, type one SOUND 
statement for voice 0, and then, without pressing SYSTEM RESET [but do 
press RETURN), type another statement for voice 1. For example, you 
might have: 

SOUND 0,121, 10, 10 
SOUND 1,60, 10,10 



m 



60 --- yC — f Z C one octave higher 



121 " — * — Middle C 

Be sure the second statement is for voice 1 and not voice again. This 
tells the machine to play middle C with the first voice and the note C an 
octave higher with the second voice. You can play up to four different 
voices at once in this way. You might have something like this: 

SOUND 0, 121,10,10-(middle C) 

SOUND 1 ,96, 10, 10- ( the note E) 

SOUND 2,81, 10, 10- (the note G) 

SOUND 3,60, 10, 10- (C one octave above middle C) 



60 n 




C one octave h 

;>- g 




\ U 








# 




^ fm 






" V 






9b — if 




^ Middle C 




121 " " 







Remember, you can play any of 256 notes for the note variable. The 
following chart gives the number values for different notes in our western 
musical scale. You might want to make up some chords of your own before 
going on to the next section. 
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EDITING 

To change a parameter in the SOUND statement, you've learned to type the 
line over. For example, if you have: 

SOUND 0, 121, 10,10 

You can change the note by typing: 

SOUND 0,243, 10,10 

But if you want to change just one part of a statement, for example the 
note parameter, your ATARI Computer has a special "editing" feature to 
make it easy. 

First, look on the left side of the keyboard and find the control key that 
looks like this: 





Got it? 

Okay, now on the other side of the keyboard are four keys with little 
arrows on them. They look like this: 




Now enter a SOUND statement like: 
SOUND 0, 121,10, 10 



Once you've done that, hold down the control key, 1 CTRL with one 
hand and while still holding it down, press the key with the arrow pointing 
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up QJ • When you do this, the cursor will move towards the top of the 
screen. 

Try to move it up until it covers the S in the SOUND statement. If the 
cursor goes past the S, don't worry about it. There's another key with the 
arrow pointing down Qj . 

Sure enough! you just have to hold the CTRL key and press the key with 
the arrow pointing down to make the cursor go the other way. 

You've probably guessed by now that the other two keys [j and £3 
make the cursor move back and forth across the screen. Be sure to hold the 
CTRL key down when you do it, though! Now, try to move the cursor 
around with these keys until it is over the 2 in the note parameter of the 
SOUND statement: 



SOUND 0, iML, 10, 10 




Once you've got that, type a 9 and press RETURN. Now you get: 
SOUND 0,191, 10, 10 

If you do this while the SOUND statement is playing, the note will 
change. You can practice this editing feature and also explore the sounds 
made by different values for the parameters of the SOUND statement, as 
demonstrated below. 

This kind of editing takes a while to get the hang of, so don't be too 
discouraged if everything didn't work for you the first time you tried it. 

If you do have problems, it might help to just practice moving the cursor 
around first and then use it to change the parameters in a SOUND state- 
ment. 



Exploring SOUND Parameters 

Once you've gotten the idea of editing by moving the cursor around, try this 
experiment. 
First enter: 

SOUND 0, 121,10, 10 
SOUND 1,96, 10, 10 
SOUND 2,81, 10, 10 
SOUND 3,60, 10, 10 

Now while the chord is playing, move the cursor up and change any 
parameter in any SOUND statement you want. As soon as you change a 
number and press RETURN, a new sound will occur. 
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For example, put the cursor over the 9 in the note parameter for voice 1 
and change it to 2. Or change the tone parameter to 6 in voice 3, and so on. 

Have fun exploring! 

In this chapter you've learned to make some different sounds with your 
Atari computer. In the next chapter you will learn some graphics com- 
mands that will allow you to draw figures and put colors on the screen. 

Self-Test 

Complete the following Self-Test to see what you already can do with your 
computer. 

1. Using the note chart in Figure 1 on page 9 , see if you can play the 
note C# above middle C in the following SOUND statement: 



SOUND 0,N, 10,10 




2. Now play the highest A that you can play. 

3. Now play a very quiet note with the loudness parameter. 

4. Now play a loud note. 

5. The notes of a G major chord are G-B-D. See if you can enter three 
SOUND statements to play the notes of this chord. 



Answers 



1. SOUND 0,114,10,10 

2. SOUND 0,35,10,10 

3. Something like: 

SOUND 0, 121, 10,2 — 




4. Something like: 

SOUND 0, 121, 10, 15 

5. You can use any of the values for the notes G-B-D in the note chart. 
You need to use three different voices. 

Example: 

G SOUND 0,81,10,10 

D SOUND 1, 108, 10,10 

B SOUND 2,64, 10, 10 



CHAPTER TWO 

Picture Yourself 
Doing Graphics 



To create graphics with your ATARI Computer, use a graphics mode. 
Several graphics modes allow you to do various things. A good one to start 
with is graphics mode 3. 



GRAPHICS MODE 3 

The command you need to enter graphics mode 3 is: 



GRAPHICS 3 



or 



GR. 3 - 




If you use the short version, be sure to include the period. When you type 
this graphics command and press the RETURN key, the screen changes to 
look like this: 



READY 



Blank 
screen 
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The area at the bottom of the screen with the word READY and the cursor 
is called the text window. It displays written information (text). 

Use the rest of the screen for creating graphics. To do this, you tell the 
machine to use a color — even if your TV is black and white. 

Type: 

COLOR 1 

and press RETURN. 

Be sure NOT to press the SYSTEM RESET key after each command or 
you'll have to start over. When you ENTER this command (by typing it and 
pressing RETURN), you'll see what you've typed displayed in the text 
window, along with READY and the cursor. The machine is waiting for 
another command. 

Plotting a Point 

Let's plot a point. The PLOT command looks like this: 

PLOT 10,5 

Try entering PLOT 1(3,5 and see what happens. You should end up with a 
screen that looks like this: 



Hi. I'm 
PLOT 10,5., 



PLOT 10, 5 
READY 



This dot should be orange. Adjust the color on your TV until the dot is 
orange. 

Do you see a little square on the screen? 
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By now you may be saying to yourself. "That's great, but what does . . . 

PLOT 10,5 

really mean?" 

Well . . . 

When you ENTER a graphics mode, the computer divides the screen into 
a number of columns and rows, something like this: 



COLUMNS 



12 3 



39 



O 



20 




L3 



C~2 




Column 



Row 



The first number in the PLOT statement tells the computer in which 
column to plot the point. The second number tells it in which row to plot 
the point. You've told the machine to plot a point in column 10, row 5. 

Graphics mode 3 has 40 columns (numbered through 39) and 20 rows 
(numbered through 19). 
In graphics mode 3 (GRAPHICS 3 or GR. 3): 

Columns (0-39) 
Rows (0-19) 
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Okay, now plot these points: 

PLOT 0,0 
PLOT 39,0 
PLOT 39,19 
PLOT 0, 19 



0,0- 



0, 19- 



PLOT0, 19 
READY 



-39, 



•39,19 



Now type: 

COLOR 2 
and then: 

PLOT 1,0 
You should get a light green dot in the upper left corner now: 



PLOT 1,0 
READY 
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See if you can plot another point using: 
COLOR 3 



It will be dark blue. 
Now type: 



COLOR 

and press RETURN. 
Then type: 

PLOT 39, 

The dot in the upper right corner disappears: 




PLOT 39, 
READY 

■ 



COLOR plots a point in the same color as the background screen, so you 

can use it to erase a point you've already plotted. 
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Colors 

The following chart shows the different colors for plot points on the screen 
in graphics mode 3 using values of through 3 for the COLOR command: 

COLOR — Background Screen 
COLOR 1— Orange 
COLOR 2— Light Green 
COLOR 3— Dark Blue 

In Chapter 7 you'll learn to put several more colors on the screen as you 
learn to use the SETCOLOR command. 

Try plotting a few more points on your own to get the idea. Then press the 
SYSTEM RESET key to clear the screen. 

Drawing a Line 

Another GRAPHICS command! Use DRAWTO to draw lines. Before you 
use this command, you must plot a point. 
Do the following very carefully. 
First type: 

GRAPHICS 3 and press RETURN 

Now type: 

COLOR 1 and press RETURN 

Then, plot a point by typing: 

PLOT10,5 (You got it! Press RETURN) 

Now you get to draw a line. Let's say you want to draw the line over to 
column 30, row 5. You use a 

DRAWTO statement 

to draw a line from a point you've just plotted to another point on the 
screen. 
To do this, just type: 

DRAWTO 30, 5 
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Be sure to type DRA WTO as one word or the computer won't understand. 
(Try DRAW TO and draw an ERROR message). 

When you type this command and press RETURN, you'll get a screen 
display that looks like this: 




Orange 



DRAWTO 35, 5 
READY 



The computer draws a line from column 10, row 5 to column 30, row 5. 

Staircase 

Horizontal and vertical lines will be straight, but lines drawn at an angle 
will have a staircase effect in graphics mode 3. To see this staircase effect, 
push the SYSTEM RESET key to start over again. 
Now ENTER: 



GR. 3 
and then: 

COLOR 2 
then: 

PLOT 0,0 
and finally: 

DRAWTO 39, 19 



© 
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If you entered everything correctly, you should get this on the screen: 



DRAWT0 39, 19 
READY 



The text window will show the last command you've typed, the word 
READY, and the cursor. 

Drawing a Figure 

Let's draw a new figure on the screen. First clear the screen by pressing 
SYSTEM RESET. 
Now type: 



then: 



GRAPHICS 3 



COLOR 1 



and: 

PLOT 10 ,8 

Now add the following DRAWTO commands: 

DRAWTO 20,8 
DRAWTO 10, 18 
DRAWTO 15,3 
DRAWTO 20, 18 
DRAWTO 10,8 



By the time you finish, you should have a figure that looks like this: 
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DRAWTO 10,8 
READY 



Changing the Line Colors 

You can draw different colored lines in the same way you plotted different 
colored points. If you still have the figure on the screen, type: 

COLOR 2 

and press RETURN. 
Then type: 

DRAWTO 20, 8 

The horizontal line will turn: 





DRAWTO 20, 
READY 
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Can you color the next line dark blue? Hint: COLOR 3 is dark blue. 
Try experimenting a bit on your own to get a feeling for PLOT statements 
and DRAWTO statements. 



GRAPHICS MODE 4 

Okay, let's have a look at another graphics mode. Graphics mode 4 fills the 
screen with 80 columns and 40 rows numbered as follows: 

Columns (0-79) 
Rows (0-39) 



1 2 3 •■ 



79 



39 



To fill the same amount of screen space with twice as many columns and 
rows, the computer must plol smaller points. 
To see this, ENTER: 

GR. 4 
then: 

COLOR 1 
and then: 

PLOT 10,8 

Now, you should see a much smaller dot on the screen than you saw 
using graphics mode 3. 
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ENTER the same DRAWTO commands you used for the figure in 
graphics mode 3. You should end up with the same figure, but it will be 
smaller and will be located in the upper left on the screen. 



A 



DRAWTO 10,8 
READY 

■ 




GRAPHICS MODE 6 

Now let's try graphics mode 6, which has even more columns and rows, 

and plots even smaller dots. 

First press the SYSTEM RESET, and then ENTER: 

GR. 6 
and then: 

COLOR 1 
Now ENTER: 

PLOT 50,30 

Pretty small dots this time!! 

Now without pressing SYSTEM RESET, let's add some more commands. 

First ENTER: 



DRAWTO 80 , 15 
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then: 

DRAWTO 11!?, 30 
and finally: 

DRAWTO 50,30 

Be sure to press RETURN after each new statement you type. What did 
you get? Did you get a triangle? If you did, that's great! If you didn't, try it 
again and see what happens. 

Before you clear the screen, try adding: 

DRAWTO 80,45 
DRAWTO 110,30 
DRAWTO 80,55 
DRAWTO 80,5 
DRAWTO 50,30 



Did you get a figure like this? 




DRAWTO 50, 30 
READY 

■ 



The following chart shows the number of columns and rows in several 
different graphics modes available in ATARI BASIC. 



Mode 


Number of 


Graphic 


Positions 


Text 


Number 


Columns 


Rows 




Windo 


3 


40 


20 




4 lines 


4,5 


80 


40 




4 lines 


6,7 


158 


80 




4 lines 
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Although some graphics modes have the same number of columns and 
rows, the colors they are able to make are different. These differences 
depend upon some other commands which you have not yet learned. 

In Chapter 7 you will learn about the SETCOLOR command which 
enables you to create a variety of colors for the figure, the background 
screen, and the text window. 

Self-Test 

1. What does the PLOT statement tell the computer to do? 

2. Plot a point in column 12, row 10 of graphics mode 4. 

3. Now draw a line from that point to column 12, row 30. 

4. Which graphics mode provides the largest number of positions for 
plotting points? 

5. What COLOR command will erase a dot by coloring it the same as the 
background screen? 

6. What statement would you enter to complete a square after entering 
the following statements: 

GRAPHICS 7 
COLOR 2 
PLOT 35, 10 
DRAWTO 55, 10 
DRAWTO 55,30 
DRAWTO 35, 10 



Answers 

1. It tells the computer to plot a point in a specific column and row. 

2. ENTER the following commands and press RETURN after each line: 

GR. 4 
COLOR 1 
PLOT 12, 10 

3. Add this command: 

DRAWTO 12,30 

4. Graphics modes 6 and 7. 

5. COLOR 

6. DRAWTO 35,5 
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Challenges 

1. Draw two separate triangles on the screen in graphics mode 6. 

2. Draw the last figure in this chapter but make each line a different 
color. 

3. Draw "Please Note" on the screen. 



CHAPTER THREE 

A Graphics Program 

DIRECT COMMANDS vs PROGRAMS 

The instructions you've been giving the computer are called direct com- 
mands. This simply means the machine executes the command right away 
or "directly." The computer doesn't remember direct commands, so if you 
want it to do the same thing again, you have to type the instruction again. 

Frequently, you will want to give the machine an instruction it can 
remember and use later. A set of this kind of instructions is called a 
program. 

To make sure your computer doesn't already have some information in 
its memory, there are a few things to do whenever starting a new program. 



First, press the SYSTEM RESET key. 

Now type the word NEW and press RETURN. 



You're ready to start your program. To write a program, use the same 
commands you've learned so far. But now, you give each command a line 
number as you type it. 

For example, you would write a graphics program to plot a point like this: 

First type: 




10 GR. 




and press RETURN. What happens? 

"Nothing happened," you say. 

Actually, something has happened. The machine has remembered the 
instruction. 

Now type: 

20 COLOR 1 

27 
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Next type: 

30 PLOT 10,5 
And finally: 

40 END 

Always press the RETURN key after you type each line of a program. In 
this way the command indicated in that line is entered into the computer's 
memory. 

Remember, if you make a mistake in typing, you can use your editing 
keys to correct it. 

LISTING A PROGRAM 

If you've typed each command correctly and pressed RETURN after each 
command, there should be a program in the computer's memory. Let's 
make sure it's all there: 

First press SYSTEM RESET. 
Then type: 

LIST 



and press RETURN. 

You should get this on the screen: 

10 GRAPHICS 3 
20 COLOR 1 
30 PLOT 10,5 
40 END 

Make sure your listing is the same as this. 



RUNNING A PROGRAM 



So how do you make it work? 
Just type: 



RUN 



and press RETURN. 
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When you RUN the program, the computer plots the point for you. 




READY 



Remember what happened when you were using direct commands? 
Every time you pressed the SYSTEM RESET key, you had to type the 
instructions to plot a point or make a sound from the beginning again. But 
the computer remembers a program, so you can RUN it again. To see this 
happen, first press SYSTEM RESET. 

Now type: 

RUN 

And press RETURN. 

Your program RUNs again! 
So . . . once a program is in the computer's memory, it can be RUN over and 
over until you erase it by typing NEW and pressing RETURN. 

Turning the machine off will also erase a program from its memory. 



ADDING TO A PROGRAM 



You might have wondered, "Does the computer only understand line 
numbers in multiples of 10 (that is 10. 20, 30. . . .)?" 

The answer is no. However, it's a good idea to leave some space between 
commands in case you want to add more instructions later. 

Suppose, for example, you want to plot another point before the end of 
the program. First, you'll want to have a look at your program again. 
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To do this, press SYSTEM RESET and then type: 

LIST 

Now when you press RETURN, your program is shown on the screen 
again. 




10 GRAPHICS 3 
20 COLOR 1 
30 PLOT 10,5 
40 END 

Okay, now try adding: 

35 PLOT 14,4 



and press RETURN. 

If you LIST the program again (by typing LIST and pressing RETURN), 
you'll see that the computer, being the orderly machine that it is, has put 
line 35 in sequence between 3(3 and 40. 

10 GRAPHICS 3 
20 COLOR 1 
30 PLOT 10,5 
35 PLOT 14,4 
40 END 

When you RUN this program (by typing RUN and pressing RETURN), 
you get two dots. 
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You might decide you want the computer to draw a verticle line before 
plotting 14, 4. Easy enough, just add another line, something like: 

32 DRAWTO 10,10 

When you type the RUN command and press RETURN to execute this 
program, it will look like this: 



I 



READY 



Care to RUN it again? Give it a try! 

Now press SYSTEM RESET to clear the screen and use the LIST com- 
mand to have a look at your program. Your listing should read like this: 

10 GRAPHICS 3 
20 COLOR 1 
30 PLOT 10,5 
32 DRAWTO 10,10 
35 PLOT 14,4 
40 END 

When you RUN a program, the computer will execute each line of the 
program in sequence. By leaving some space in the original line numbers, 
you can add instructions to this sequence as you go along. 



CHANGE COLORS 



Let's make the dot light green. Just add: 
34 COLOR 2 
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LIST the program again. It should be: 

10 GRAPHICS 3 
20 COLOR 1 
30 PLOT 10,5 
32 DRAWTO 10,1!? 

34 COLOR 2 

35 PLOT 14,4 
40 END 




Try adding another color (0-3) and a few DRAWTO statements of your 
own between lines 35 and 40. 



REM STATEMENTS 

As programs begin to get longer and more involved, you'll need ways to 
keep track of what you are doing. A useful tool for marking different parts of 
a program is the REM statement. The REM statement does not affect how 
the program runs. To see this, ENTER the following short program and then 
RUN it. 

10 GRAPHICS 3 
20 COLOR 1 
30 PLOT 5,5 
110 DRAWTO 30,5 

You should get an orange line on the screen like this: 




READY 
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Now LIST the program. It should be: 

10 GRAPHICS 3 
20 COLOR 1 
50 PLOT 5,5 
110 DRAWTO 30,5 

Now add this REM statement: 

100 REM ** ORANGE LINE 

Now RUN the program again. It should work exactly as it did before. 
We're going to add more lines to draw a figure, so let's put another REM 
statement in the program to mark the starting point of the drawing. 

25 REM ** STARTING POINT 



The listing now looks like this: 



10 GRAPHICS 3 

20 COLOR 1 

25 REM ** STARTING POINT 

50 PLOT 5,5 

100 REM ** ORANGE LINE 

110 DRAWTO 30,5 




(REM statements 
/make the program 
I more understandable 
/ to people. The 
I computer ignores 
JREM statements. J 



But it still runs the same. Try it and see. 



BUILDING BLOCKS 

It is very helpful to build programs in "blocks" with REM statements to 
explain different parts of the program. That's why we skipped to line 1G)0 
for: 

100 REM ** ORANGE LINE 
110 DRAWTO 30,5 

Let's add another block with a blue line. ENTER these lines: 



200 REM ** BLUE LINE 
210 COLOR 3 
220 DRAWTO 5, 15 
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Make sure this is what you have for a complete listing: 

10 GRAPHICS 3 

20 COLOR 1 

25 REM ** STARTING POINT 

30 PLOT 5,5 

100 REM ** ORANGE LINE 

110 DRAWTO 30,5 

200 REM ** BLUE LINE 

210 COLOR 3 

220 DRAWTO 5, 15 

Then RUN the program and this should appear on the screen: 




Now, add the following blocks to the program: 



300 REM ** GREEN LINE 

310 COLOR 2 

320 DRAWTO 30, 15 

400 REM ** BLUE LINE 

410 COLOR 3 

420 DRAWTO 5,5 

500 REM ** THAT'S ALL FOLKS 

510 END 
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The program should now look like this when you RUN it: 
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Here's the complete listing: 

10 GRAPHICS 3 

20 COLOR 1 

25 REM ** STARTING POINT 

30 PLOT 5,5 

100 REM ** ORANGE LINE 
110 DRAWTO 30,5 



REM ** BLUE LINE 
210 COLOR 3 
220 DRAWTO 5,15 

300 REM ** GREEN LINE 

310 COLOR 2 

320 DRAWTO 30, 15 

400 REM ** BLUE LINE 
410 COLOR 3 
420 DRAWTO 5,5 

500 REM ** THAT'S ALL FOLKS 
510 END 

Try to add some different colored lines of your own. 



DRAW A CUBE 

We're going to give you a program listing to draw a cube on the screen. 
ENTER each block of the program and occasionally RUN it before you enter 
the next block. For example, RUN it after line 24(3 and then after line 350, 
and so on. Save the listing for the exercises that follow. 
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Here's the listing: 

1 REM *** COLOR CUBE 
10 GRAPHICS 5 
20 COLOR 1 

100 REM ** STARTING POINT 
110 PLOT 20, 15 

200 REM ** TOP OF CUBE 
210 DRAWTO 50, 10 
220 DRAWTO 40, 15 
230 DRAWTO 30,20 
240 DRAWTO 20, 15 

300 REM ** THE SIDES 
310 COLOR 2 
320 DRAWTO 20,25 
330 DRAWTO 30,30 
340 DRAWTO 40,25 
350 DRAWTO 40,15 

400 REM ** FRONT LINE 
410 PLOT 30,20 
420 DRAWTO 30,30 

500 END 

Here's what happens. First you get: 
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And then you get: 




And finally: 
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In Chapter 7 you will learn to use a much greater variety of colors for both 
the figures you draw and the background screen. This is done with the 
SETCOLOR command, but you need to learn a few more programming 
tools to easily understand this command. 

In the next chapter you will learn to combine sound and graphics. 

Self-Test 

1 . What do you call a set of instructions (with line numbers) that tells the 
computer what you want it to do? 

2. How would you store this command in the computer's memory? 

GRAPHICS 3 

3. Why do you use line numbers like 10, 20, 30 instead of 1, 2, 3? 

4. Will the "Color Cube" program run differently if you take out line 
200? 

5. Why won't the "Color Cube" program run using graphics mode 3? 

Answers 

1. A program 

2. Give it a line number and press RETURN. For example: 

20 GRAPHICS 3 

3. To leave space to add more lines later 

4. No. REM statements don't change the way a program runs. 

5. Because graphics mode 3 has columns through 39 and rows 
through 19, and the dimensions of the cube go beyond that. 

Challenges 

1. Run the "Color Cube" program in graphics mode 7. 

2. Plot some more points. 

3. Add some DRAWTO statements. 

4. See if you can write a program that will draw the figure at the end of 
Chapter 2. 



CHAPTER FOUR 

Sound And Graphics 
Together 



So far you have learned to make some sounds and also to create some 
graphics with your ATARI Computer. In this chapter you will learn to make 
sound and graphics together. You will also learn an easy way to make the 
computer play a melody with READ and DATA statements. 

Let's start with a graphics program using some of the things you learned 
in the last chapter: 



1 REM *** SOUND AND COLOR 
10 GRAPHICS 3 
20 COLOR 1 
30 PLOT 10, 10 



when you ENTER this correctly and RUN it, the machine plots a point in 
column 10, row 10. 




READY 

■ 



40 
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To add a SOUND statement, press SYSTEM RESET, then LIST the prog- 
ram. Now add: 

200 REM ** VOICE PLAYS MIDDLE C 
210 SOUND 0, 121, 10, 10 

When you RUN the program, yon don't hear the voice! What happened? 

Well, the machine executed line 210 so fast you didn't hear the note 
played. It then finished the program and printed READY in the text win- 
dow. To stay in the program, the machine must be given a command like 

this: 

300 REM ** VOICE STAYS ON 

310 GOTO 210 310 GOTO 210 

The listing of the program now looks like this: 

1 REM *** SOUND AND GRAPHICS 
10 GRAPHICS 3 
20 COLOR 1 
30 PLOT 10, 15 

200 REM ** VOICE PLAYS MIDDLE C 
210 SOUND 0, 121, 10, 10 

Optional— 300 REM ** VOICE STAYS ON 
310 GOTO 210 





Now when you RUN the program, it puts a dot on the screen and you hear 
a continuous single tone, the note middle C. (You don't have to include the 
REM statements. The program will RUN the same without them.) 

When the machine gets to line 310. the GOTO statement tells it to go back 
to line 210 and play the note again. It keeps doing this (thus forming a 
"loop") until you press the SYSTEM RESET key to stop the RUN. 

The machine executes the loop in lines 210 and 310 so fast that you hear 
it as a single tone, even though it's actually playing the note over and over. 
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FOR-NEXT LOOPS 

Instead of having voice stay on, suppose you want to have it play for a 
while and then turn it off. 

Since the computer does things so fast, it is sometimes necessary to tell it 
to pause before going on. 

You do this by telling it to count to itself for a while. The machine counts 
by using a: 

FOR-NEXT loop 



You want the computer to pause after it plays the note, so put the 
FOR-NEXT loop after line 210. 
It will look like this: 



300 REM ** PAUSE-NOTE ON 
310 FOR P=l TO 500 
320 NEXT P 




When you ENTER these lines (by typing each one and pressing RE- 
TURN), they will replace the previous lines 300 and 310. The FOR-NEXT 
loop in lines 310 and 320 is now telling the computer to count to 500. 

Your complete program listing now looks like this: 




1 REM *** SOUND AND COLOR 
10 GRAPHICS 3 
20 COLOR 1 
30 PLOT 10, 10 

200 REM ** VOICE PLAYS MIDDLE C 
210 SOUND 0, 121,10, 10 

300 REM ** PAUSE-NOTE ON 
310 FOR P=l TO 500 
320 NEXT P 



The spaces make it easier for you to read the program. They won't show 
up that way in your listing. 
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Now RUN the program. The dot should appear on the screen. The note 
plays for a while and then turns off. When the note stops playing, the word 
READY appears again in the text window. 




READY 



The note stays on for as long as it takes the machine to count to 500 in 
lines 310 and 320. Not long, is it? 

Let's try changing the amount of time it pauses to make the note stay on a 
little longer. 

First, change line 310 to: 



310 FOR P=l TO 1 




To do this just type the new line 310 and press RETURN. 

Now when you RUN the program, it should put the dot on the screen and 
then play the note for a longer time. 

Try changing line 310 to play some very fast notes and then some much 
longer ones. Then change it back to: 



310 FOR P = l TO 500 
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The complete listing is back to: 

1 REM *** SOUND AND COLOR 
10 GRAPHICS 3 
20 COLOR 1 
30 PLOT 10, 10 

200 REM ** VOICE PLAYS MIDDLE C 
210 SOUND 0, 121, 10, 10 

300 REM ** PAUSE-NOTE ON 
310 FOR P=l TO 
320 NEXT P 



Erase the Dot 

Let's add a few new lines to the program to erase the dot: 

400 REM ** ERASE DOT 
410 COLOR 
420 PLOT 10, 10 

The value of in the COLOR command in line 410 tells the computer to 
plot a point the same color as the background screen. If we tell it to plot a 
dot with COLOR in a place where another dot already exists, it will erase 
the dot that's there. 

When you RUN this program, it puts the clot on the screen while it is 
playing the note, thou erases the clot as the note stops playing. 

RUN it again to make sure you really saw and heard what you thought 
you saw and heard! 
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Here's what ought to be happening: 



While the note 
is playing: 



When the note 
stops: 




READY 



The word READY and the cursor appear in the text window when the 
program ends. 
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Now the complete listing should look like this: 

1 REM *** SOUND AND COLOR 
10 GRAPHICS 3 
20 COLOR 1 
30 PLOT 10, 10 

200 REM ** VOICE PLAYS MIDDLE C 
210 SOUND 0, 121, 10, 10 

300 REM ** PAUSE-NOTE ON 
310 FOR P = l TO 500 
320 NEXT P 

400 REM ** ERASE DOT 
410 COLOR 
420 PLOT 10,10 



INPUT STATEMENTS 

What if you want to change the note this program plays without typing line 
210 over again? You can do this by using an INPUT statement. 
Here's how it works. 
First change line 210 to: 



210 SOUND 0,N, 10,10 




Now add an INPUT statement like this: 

100 REM ** CHOOSE YOUR NOTE 
120 INPUT N 

The INPUT statement must come be/ore the SOUND statement where the 
N occurs here. We purposely skipped line 110 here because we're going to 
add a line there soon. You'll see! 
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Here's the listing now: 

1 REM *** SOUND AND COLOR 
10 GRAPHICS 3 
20 COLOR 1 
30 PLOT 10, 10 

100 REM ** CHOOSE YOUR NOTE 
120 INPUT N 

200 REM ** VOICE PLAYS MIDDLE C 
210 SOUND 0, N, 10, 10 

300 REM ** PAUSE-NOTE ON 
310 FOR P = l TO 500 
320 NEXT P 

400 REM ** ERASE DOT 
410 COLOR 
420 PLOT 10, 10 

Now when you RUN the program, here's what happens. You get this with 
no sound: 



The machine is waiting for you to ENTER a note value. 

Try typing 60 and press RETURN. 

It plays the note! 

You have to type RUN and press RETURN to start again. 
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Let's make some improvements. 

First add a SOUND statement to turn off voice after it plays: 

500 REM ** VOICE OFF 
510 SOUND 0,0,0,0, 

Now add: 

800 GOTO 120 

Now RUN it. 

This time, when you ENTER a note value it plays the note and then prints 
another question mark. 

To hear another note, just type another note value and press RETURN. 
You don't have to RUN the program again. 

Here's the listing: 

1 REM *** SOUND AND COLOR 
10 GRAPHICS 3 
20 COLOR 1 
30 PLOT 10,10 

100 REM ** CHOOSE YOUR NOTE 
120 INPUT N 

200 ** VOICE PLAYS MIDDLE C 
210 SOUND 0, N, 10, 10 

300 REM ** PAUSE-NOTE ON 
310 FOR P = l TO 500 
320 NEXT P 

400 REM ** ERASE DOT 
410 COLOR 
420 PLOT 10, 10 

500 REM ** VOICE OFF 
510 SOUND 0,0,0,0 
800 GOTO 120 
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Input Duration 

You can use an INPUT statement for the length of the pause in line 310 like 
this: 

Change line 310 to: 



310 FOR P=l TO Z 




Then add: 

150 REM ** DURATION 
170 INPUT Z 

What happens when you RUN it now? 
First you get: 



Then when you ENTER another note value, you get another question 
mark. 

Type a number for duration and press RETURN. Now it plays the note! 
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The complete listing now looks like this: 

1 REM *** SOUND AND COLOR 
10 GRAPHICS 3 
20 COLOR 1 
30 PLOT 10, 10 

100 REM ** CHOOSE YOUR NOTE 
120 INPUT N 

150 REM ** DURATION 
170 INPUT Z 

200 REM ** VOICE PLAYS MIDDLE C 
210 SOUND 0,N, 10, 10 

300 REM ** PAUSE-NOTE ON 
310 FOR P=l TO Z 
320 NEXT P 

400 REM ** ERASE DOT 
410 COLOR 
420 PLOT 10, 10 

500 REM ** VOICE OFF 
510 SOUND 0,0,0,0 
800 GOTO 120 



PRINT STATEMENTS 

The computer can print instructions in the text window to make things 
clearer. To do this, use a PRINT statement. 
For example, add: 

110 PRINT "CHOOSE YOUR NOTE" 

and: 

160 PRINT "HOW LONG DOES IT PLAY" 
170 INPUT Z 

Finally, change line 800 to: 

800 GOTO 110 
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Now when you RUN it you get: 



NOTE VALUE 
?■ 



And then: 



NOTE VALUE 

121 

HOW LONG DOES IT PLAY 

?■ 



Then it plays your note and asks for another one, and so on. 
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Here's the complete listing now. 

1 REM *** SOUND AND COLOR 
10 GRAPHICS 3 
20 COLOR 1 
30 PLOT 10. 10 

100 REM ** CHOOSE YOUR NOTE 

120 INPUT N 

150 REM ** DURATION 

160 PRINT "HOW LONG DOES IT PLAY' 

170 INPUT Z 

200 REM ** VOICE PLAYS MIDDLE C 
210 SOUND 0,N, 10, 10 

300 REM ** PAUSE-NOTE ON 
310 FOR P=l TO Z 
320 NEXT P 

400 REM ** ERASE DOT 
410 COLOR 
420 PLOT 10, 10 

500 REM ** VOICE OFF 
510 SOUND 0,0,0,0 
GOTO 120 



Before you start the exercises, you might like to know about another 
convenient point of grammar in ATARI BASIC. 

Multiple-Line Statements 

ATARI BASIC allows you to combine two or more commands on one line of 
a program. To do this, you must separate the commands with a colon (:). 
For example, a COLOR command and a graphics mode 3 command might 
be combined as follows: 

110 GRAPHICS 3 : COLOR 2 

instead of: 

110 GRAPHICS 3 
120 COLOR 2 
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Some programmers use multiple-line statements to put a REM statement 
on the same line as the command it describes. 

120 INPUT N:REM ** CHOOSE YOUR NOTE 

You actually won't see too many uses of multiple-line statements in this 
book because we want to list the programs in a way that is easy for you to 
read. We wanted you to know about this concept though, so you can use it if 
you wish. 



READ AND DATA STATEMENTS 

To play an entire melody, you can enter a SOUND statement for each note, 
but there are easier ways to do it. 

One way is to use READ and DATA statements together. This allows you 
to ENTER several note values as DATA and have the computer READ them 
into the SOUND statement. 

Type NEW and press RETURN to clear the last program from the compu- 
ter's memory. Now ENTER this program which plays ten notes: 

1 REM ** YOUR OWN SONG 

100 REM ** READS THE NOTE 
110 READ N 

200 REM ** PLAYS NOTE 
210 SOUND 0,N,10,10 

This line ' 

300 REM PAUSE 

READS 310 FOR P=l TO 100 

_. n , 320 NEXT P 

This Data r 

400 REM ** NEXT NOTE 
410 GOTO 110 

500 REM ** THE NOTE VALUES 

510 DATA 121,81,96,60,64 

1 520 DATA 35 , 45 , 64 , 108 , 121 
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RUN it and you'll hear your ATARI Computer play a melody. 
When it gets finished, you'll get an ERROR message: 

ERROR- 6 AT LINE US? 

This doesn't mean there is anything wrong; it just means the computer 
can't find any more DATA to READ. 

Here's how this program works. In lines 510 and 520 you've entered note 
values from the chart on page 9 as DATA. 

When the program RUNs, the READ statement in line 110 tells the 
computer to READ the first note value from the DATA statement. That 
value is 121. It plays that note in line 210. 

When it gets to line 410, the machine goes back to line 110, and this time 
it READs the second value for N (which is 81) in the DATA statement and 
then plays it. It does this until it has read all the DATA. 

We've used just ten notes here, but you can use as many as you want. You 
can put more than five numbers per line in a DATA statement, but it's 
easier to see what you're doing if you put only a few numbers on each line. 

How about some dots with this one? Just add lines: 

25j? REM ** PLOT SOME POINTS 
26(? GR. 5 
27S? COLOR 2 
28j? PLOT N/2,25 

Graphics mode 5 has 80 columns and 80 rows. Since none of the values 
for N in the DATA statement are more than 160, we can divide N by 2 and 
use that value for the column in a PLOT statement (line 280), if we use 
graphics mode 5. All of the dots will be plotted in row 10 

In this program, the machine enters the graphics mode each time it goes 
through the loop. When it does this, it erases what it had plotted on the 
screen before. That's why each dot disappears before the next one appears. 
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Now the complete listing is: 

1 REM ** "YOUR OWN SONG 

100 REM ** READS THE NOTE 
110 READ N 

200 REM ** PLAYS THE NOTE 

210 SOUND 0,N, 10, 10 

250 REM ** PLOT SOME POINTS 

260 GRAPHICS 5 

270 COLOR 2 

280 PLOT N/2, 10 

300 REM ** PAUSE 
310 FOR P=l TO 100 
320 NEXT P 

400 REM ** NEXT NOTE 
410 GOTO 110 

500 REM ** THE NOTE VALUES 
510 DATA 121,81,96,60,64 
520 DATA 35 , 45 , 64 , 108 , 121 

Well, by now you're ready to play some tunes of your own, so go to it! 
Keep the program for the Self-Test that follows. 

Self-Test 

1. What do you need in line 310 to make the note stay on? 

210 SOUND 0, 121, 10, 10 
300 REM ** SOUND STAYS ON 
310 

2. How do you make the computer count to itself in ATARI BASIC? 

3. Will this be a fast or a slow note? 

110 SOUND 0, 121, 10, 10 
210 FOR P=l TO 10 
220 NEXT P 

4. What value for COLOR do you use in line 410 to erase the dot? 
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5. What statement is used to enter information while a program is 
running? 

6. Why won't this program work to INPUT notes? 



100 REM ** CHOOSE YOUR NOTE 
110 INPUT N 

7. Can you INPUT more than one variable in a program? 

8. If you wanted to enter several tone values in the computer's memory 
and then use them one by one in a SOUND statement, what two 
statements would work together to do this? 



Answers 

1. 310 GOTO 210 or 310 GOTO 310 

2. With a FOR-NEXT loop 

3. Fast 

4. COLOR 

5. An INPUT statement 

6. The SOUND statement in line 210 needs to be: 

200 SOUND 0,N, 10, 10 

7. Yes, but you need an INPUT statement for each variable. For example: 

110 INPUT N 
120 INPUT T 
210 SOUND 0,N,T,0 

8. READ and DATA 



Challenges 

1. Write a program that lets you INPUT tone as a variable in the SOUND 
statement. 

2. Write a program using READ and DATA to plot some points. 



CHAPTER FIVE 

Some Special Effects 
with Sound 



In the last chapter we used a FOR-NEXT loop to tell the computer to count 
to itself for a moment when we wanted il to pause. 

The FOR-NEXT loop can also be used in other ways. In this chapter we'll 
begin to explore some ways to use the FOR-NEXT loop to have the compu- 
ter ENTER values for different notes in the SOUND statement. 



ENTER NOTES WITH A FOR-NEXT LOOP 

Suppose you want to ENTER every value for note to 255 in a SOUND 
statement. Instead of doing a lot of typing, you can get the machine to 
ENTER each value for you by using a FOR-NEXT loop like this: 

1 REM *** DESCENDING PITCH 



Optiona 




100 REM ** BEGINS LOOP 
11!? FOR N = TO 255 
120 SOUND 0,N, 10, 10 

200 REM ** ASSIGNS NEXT NOTE VALUE 
210 NEXT N 

ENTER and RUN this program to hear what is sounds like. You should 
hear a rapidly descending pitch. 

As the loop begins. N is assigned a value of in line 110. This value is 
then used in the SOUND statement in line 120. The next time through the 
cycle, N is given a value of 1 . and the next time N is given a value of 2, and so 
on until all 256 notes have been played. 

You may recall from Chapter 1 that the lower the number value for the 
note variable, the higher the note. That is. a note value of is very high, 
while 256 is very low. That's why the note descends in pitch. 

We will use REM statements as we introduce new lines to programs from 
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here on, but you don't need to include them in order for the programs to 
RUN properly. 

Want to hear it repeat? Just add: 

300 REM ** STARTS AGAIN 
310 GOTO 110 

Your listing will now look like this: 

1 REM *** DESCENDING PITCH 

100 REM ** BEGINS LOOP 
110 FOR N = TO 255 
120 SOUND 0,N, 10, 10 

200 REM ** ASSIGNS NEXT NOTE VALUE 
210 NEXT N 

300 REM ** STARTS AGAIN 
310 GOTO 110 

Now when you RUN the program you hear it play the cycle just as it did 
before, but when it gets to line 310 it will go back to line 110 and start the 
cycle again. This continues until you press the SYSTEM RESET key to get 
out of the program. Give it a try to hear it for yourself. 



USE THE BREAK KEY AND THEN CONTINUE 

There's another way to get out of a program and then back into it that will 
produce an interesting result with this particular program. 

First RUN the program and leave it going. 

Now press the BREAK key at the upper right corner of the keyboard. 
What happens? 

You'll get a message like this on the screen: 

STOPPED AT LINE 120 

Meanwhile, the sound stays on, but the pitch stops falling and remains 
constant at some single note (it might be high; it might be low). 

Now type CONT and press RETURN. 
What happens this time? 

It goes back to a falling tone, picking up the cycle from wherever it was 

when you pressed the BREAK key. Leave the cycle going for a while again. 

Now press the BREAK key again. 

You'll most probably get a different note when it stops this time. This is 

because when you press the BREAK key, although the machine stops 
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running the program, it leaves the voice on with whatever note value has 
just been entered in the SOUND statement. So wherever you are in the 
FOR-NEXT loop when you press BREAK, that's the note you'll get. 

A little more experimentation with this idea will give you a good sense of 
how the FOR-NEXT loop is working in this program. 

RUN the program. 

Press BREAK. 

Type CONT and press RETURN. 

Press BREAK. 

Type CONT and press RETURN. 

And so on. . . . 



PAUSE WITHIN THE CYCLE 

If you want to slow down the rate at which the cycle occurs and thus stretch 
the sound out, you can use the FOR-NEXT loop to pause the way you 
learned in the last chapter. For example, add the following lines to the 
program: 

150 REM ** PAUSE 
160 FOR P=l TO 100 
170 NEXT P 

The complete listing should now be: 

1 REM *** DESCENDING PITCH 

100 REM ** BEGINS LOOP 
110 FOR N = TO 255 
120 SOUND 0,N, 10, 10 



Slows down rate at 

which the pitch J 16 ^ FOR P = l TO U 



150 REM ** PAUSE 
160 FOR P= 
falls' " ( 170 NEXT P 

200 REM ** ASSIGNS NEXT NOTE VALUE 
210 NEXT N 

300 REM ** STARTS AGAIN 
310 GOTO 110 

RUN the program this way to hear what it sounds like. 

The pause loop here is an example of a nested FOR-NEXT loop; that is, 
one FOR-NEXT loop that occurs within another. The nested loop must be 
completely within the other loop. For example, the pause loop here must be 
placed after line 110, but before line 210. 
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This will not work: 



1 REM *** DESCENDING PITCH 



Improper nesting 
of loops 




100 REM ** BEGINS LOOP 
110 FOR N=0 TO 255 
120 SOUND 0,N, 10, 10 

150 REM ** PAUSE 
160 FOR P=l TO 100 

165 NEXT N 
170 NEXT P 



200 REM ** ASSIGNS NEXT NOTE VALUE 
310 GOTO 110 

Make sure you have this listing before going on to the next section: 



Properly nested 
loops-one within 
the other 



ft 

o 



1 REM *** DESCENDING PITCH 
100 REM ** BEGINS LOOP 
110 FOR N = TO 255 
120 SOUND 0,N, 10,10 

150 REM ** PAUSE 
160 FOR P = l TO 100 
170 NEXT P 

200 REM ** ASSIGNS NEXT NOTE VALUE 
210 NEXT N 



300 REM ** STARTS AGAIN 
310 GOTO 110 
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Vary the Length of the Pause 

If you change the length of the pause in line 160, it will create some 
different effects. To explore this, you can use an INPUT statement that you 
also learned in Chapter 4. Here's an example of how that might be done: 

1 REM *** DESCENDING PITCH 
40 PRINT "LENGTH OF PAUSE" 
50 INPUT X 

100 REM ** BEGINS LOOP 
These lines allow / 110 FOR N = TO 255 

you to choose ( 120 SOUND , N , 10 , 10 

length of pause 

150 REM ** PAUSE 
160 FOR P=l TO X 
170 NEXT P 

200 REM ** ASSIGNS NEXT NOTE VALUE 
210 NEXT N 

300 REM ** STARTS AGAIN 
310 GOTO 110 

Once you've made the changes described here, experiment a bit with 
different lengths for the pause before going on to the next section. But keep 
the program for the next section. 



DELETE LINES FROM THE PROGRAM 

Often you will wish to remove or delete lines from a program. The way to 
do this with ATARI BASIC is to simply type the line number of the line you 
wish to delete and then press RETURN. 

Suppose, for example, you wanted to remove the REM statement from 
the following program: 

100 REM ** MAKES A NOTE 
110 SOUND 0, 121, 10, 10 

You can remove line 100 by simply typing: 

100 

And pressing RETURN. 

If you still have the program with which we've been working, let's 
practice this technique a little. 
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First, LIST your program to see if this is what you have: 



1 REM *** DESCENDING PITCH 
40 PRINT "LENGTH OF PAUSE" 
50 INPUT X 

100 REM ** BEGINS LOOP 
110 FOR N = TO 255 
120 SOUND 0,N, 10, 10 

150 REM ** PAUSE 
160 FOR P = l TO X 
170 NEXT P 

200 REM ** ASSIGNS NEXT NOTE VALUE 
210 NEXT N 

300 REM ** STARTS AGAIN 
310 GOTO 110 



If you have something slightly different it's okay because we're going to 
delete several lines anyway. Let's delete some lines as follows: 

* Type 40 (and press RETURN). 

* Type 50 (and press RETURN). 

* Type 150 (and press RETURN). 

* Type 160 (and press RETURN). 

* Type 170 (and press RETURN). 

You've just removed the PRINT statement, the INPUT statement, and the 
pause loop. The program should now look like this: 

1 REM *** DESCENDING PITCH 



100 REM ** BEGINS LOOP 
110 FOR N = TO 255 
120 SOUND 0,N, 10, 10 

200 REM ** ASSIGNS NEXT NOTE VALUE 
210 NEXT N 

300 REM ** STARTS AGAIN 
310 GOTO 110 
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If you have something different, make whatever changes are necessary to 
come up with this listing. You can delete lines as described and also use the 
editing features you learned in Chapter 1 to move the cursor with the CTRL 
key and the arrow keys on the upper right corner of the keyboard. 

If it seems easier to just type NEW and ENTER the program from scratch, 
that's fine too. But make sure you have the same listing as above because 
we'll use it in the next section. 



PLAY A PORTION OF THE NOTE SPECTRUM 

You can create a number of different sounds by playing only a portion of 
the note spectrum. For example, to play only note values through 10 
inclusive, change line 110 of your program to: 

110 FOR N = TO 10 

This is the high end of the spectrum, and also a short cycle, so it produces 
a rapidly repeating, high-pitched sound, sort of like a bird chirping. The 
complete listing should now look like this: 

1 REM *** DESCENDING PITCH 

100 REM ** BEGINS LOOP 
110 FOR N = TO 10 
120 SOUND 0,N, 10, 10 



Plays a portion of „ u0 FQR n = Q ^ 

the note spectrum 



200 REM ** ASSIGNS NEXT NOTE VALUE 
210 NEXT N 

300 REM ** STARTS AGAIN 
310 GOTO 110 



ENTER and RUN the program so you'll hear it for yourself. 
Before you look at the next program, see if you can think of a way to use 
an INPUT statement to vary the length of the sequence. 
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Here's what we came up with. 

1 REM *** DESCENDING PITCH 

40 PRINT "LENGTH OF PAUSE" 
50 INPUT Z 



Vary length of note 
sequence 



100 REM ** BEGINS LOOP 
110 FOR N = TO Z 
120 SOUND 0,N, 10, 10 

200 REM ** ASSIGNS NEXT NOTE VALUE 
210 NEXT N 

300 REM ** STARTS AGAIN 
310 GOTO 110 



Play a Portion 

from the Middle of the Spectrum 

You don't have to start counting with in a FOR-NEXT loop, so it's possible 
to play a sequence of notes from somewhere within the spectrum of notes. 
For example, to play a sequence with note values from 100 to 150, change 
line 110 to: 

110 FOR N=100 TO 150 

and then RUN the program. 

To further explore this concept, you can INPUT a variable at either end of 
the sequence something like this: 

1 REM *** DESCENDING PITCH 
20 PRINT "BEGINNING OF LOOP" 
30 INPUT A 
50 INPUT Z 



Vary both ends of 
note sequence 




100 REM ** BEGINS LOOP 
110 FOR N = A TO Z 
120 SOUND 0.N.10, 10 

200 REM ** ASSIGNS NEXT NOTE VALUE 
210 NEXT N 

300 REM ** STARTS AGAIN 
310 GOTO 110 
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We encourage you to ENTER these programs (don't forget your editing 
tools) and then give these concepts a thorough exploration before going on. 
This will give you many ideas to use in later programs. 



COUNTING BY STEPS 

Just as you might run up stairs skipping two or three steps at a time, the 
computer can count in multiples of 2, 5, 10, or whatever. To do this, use the 
STEP function with the FOR-NEXT loop, as in line 110 of the program 
below. 

Rather than acting as a separate command, the STEP function becomes a 
part of the FOR statement. 

1 REM *** DESCENDING PITCH 

100 REM ** BEGINS LOOP ___- STEP function to 



count by 10s 



110 FOR N = TO 255 STEP If 
120 SOUND 0,N,10, 10 

200 REM ** ASSIGNS NEXT NOTE VALUE 
210 NEXT N 

300 REM ** STARTS AGAIN 
310 GOTO 110 

ENTER and RUN this program to hear what it sounds like. Values of 0, 1(3, 
20, and so on are now being entered for note in the SOUND statement in 
line 120. Consequently, only twenty-five notes are played each time 
through the sequence. This makes the loop shorter and, as you can hear, 
makes a sound that your ears can hear better than our words can describe. 

If you want to count by 5's. just change line 110 to: 

110 FOR N = TO 255 STEP 5 

Now make the STEP function a variable and use an INPUT statement to 
explore counting at different intervals. 
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Here's how we did it: 

1 REM *** DESCENDING PITCH 

These lines are - " 40 PRINT "ENTER A VALUE FOR STEP' 

added ~~~~— 50 INPUT S 



STEP as a variable 



100 REM ** BEGINS LOOP 
110 FOR N = TO 255 STEP S 
120 SOUND 0,N, 10, 10 

200 REM ** ASSIGNS NEXT NOTE VALUE 
210 NEXT N 

300 REM ** STARTS AGAIN 
310 GOTO 110 



Counting Backwards 

You can also have the computer count backwards. For example, here's a 
program to play a sequence starting with the lowest note (N = 255) and 
going to the highest (N = 0): 

1 REM *** ASCENDING PITCH 

100 REM ** BEGINS LOOP 

Counts backwards - 110 FOR N = 255 TO STEP -1 

120 SOUND 0.N.10, 10 

200 REM ** ASSIGNS NEXT NOTE VALUE 
210 NEXT N 

300 REM ** STARTS AGAIN 
310 GOTO 110 

ENTER and RUN this program to hear the note spectrum played in 
reverse. Save yourself some typing by editing out lines 40 and 50 of the 
previous program and then changing line 110. 

You can also play different portions of the spectrum in reverse just as you 
did going from high pitch to low pitch. For example: 
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1 REM *** ASCENDING PITCH 

100 REM ** BEGINS LOOP 

110 FOR N=150 TO 50 STEP -1 

120 SOUND 0,N, 10, 10 

200 REM ** ASSIGNS NEXT NOTE VALUE 
210 NEXT N 

300 REM ** STARTS AGAIN 
310 GOTO 110 



You can also count backwards by intervals. For example: 

1 REM *** ASCENDING PITCH 

100 REM ** BEGINS LOOP 

Count backwards *110 FOR N = 255 TO STEP -25 

by STEPS 120 SOUND 0,N, 10, 10 

200 REM ** ASSIGNS NEXT NOTE VALUE 
210 NEXT N 

300 REM ** STARTS AGAIN 
310 GOTO 110 

ENTER and RUN this program to hear what it sounds like. 

The parameters in the FOR statement in line 110 can be made variables 
and explored with an INPUT statement just as you did when counting 
forwards. For example, make the STEP function a variable counting back- 
wards like this: 



Vary STEP count- 
ing backwards 



1 REM *** ASCENDING PITCH 

40 PRINT "ENTER A VALUE FOR STEP" 

50 INPUT S 

100 REM ** BEGINS LOOP 
110 FOR N = 255 TO STEP -S 
120 SOUND 0,N, 10,10 

200 REM ** ASSIGNS NEXT NOTE VALUE 
210 NEXT N 

300 REM ** STARTS AGAIN 
310 GOTO 110 
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backwards 



ENTER and RUN this program to experiment with how counting back- 
wards at different intervals affects the sound. 

Now see if you can change the program to use an INPUT statement to play 
part of the note spectrum backwards. We'll give one example; you try a few 
others. 

1 REM *** ASCENDING PITCH 
40 PRINT "END OF LOOP" 
45 PRINT "MUST BE LESS THAN 100" 
>^50 INPUT Z 
INPUT portion of ^^ 

wtSl™" 1 "-^ W REM ** BEGINS LOOP 

110 FOR N= 100 TO Z STEP -1 
120 SOUND 0,N, 10, 10 

200 REM ** ASSIGNS NEXT NOTE VALUE 
210 NEXT N 

300 REM ** STARTS AGAIN 
310 GOTO 110 



Pause While Counting Backwards 

Again, you can slow down the sequence of notes played backwards by 
adding a FOR-NEXT loop to pause like this: 

1 REM *** ASCENDING PITCH 

100 REM ** BEGINS LOOP 
110 FOR N=100 TO Z STEP -1 
120 SOUND 0,N, 10, 10 

150 REM ** PAUSE 
Add these lines to _^— -— 160 FOR P = l TO 100 
pause -^ 170 NEXT P 

200 REM ** ASSIGNS NEXT NOTE VALUE 
210 NEXT N 

300 REM ** STARTS AGAIN 
310 GOTO 110 

Remember, this is a nested loop, so be sure it is entirely within the loop 
for note sequence. Now add an INPUT statement to the program and vary 
the length of the pause in the program. 
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Back-to-Back Loops 

You can get some interesting effects by having a loop with falling pitch 
followed by a loop with rising pitch, like this: 

1 REM ** BIRD SOUND 

100 REM ** FALLING PITCH 
110 FOR N = TO 100 
120 SOUND 0,N, 10, 10 
190 NEXT N 

200 REM ** RISING PITCH 
210 FOR N=100 TO STEP -1 
220 SOUND 0,N,10, 10 
290 NEXT N 

300 REM ** STARTS AGAIN 
310 GOTO 110 

When you ENTER and RUN this program, you'll get another kind of bird 
sound than when you used a loop going in only one direction. 

For an experiment, try making the first loop play a longer cycle of notes, 
like this: 

100 REM ** FALLING PITCH 
110 FOR N = TO 50 

while the second loop plays a short cycle: 

100 REM ** RISING PITCH 
110 FOR N=10 TO STEP -1 

ENTER these lines and RUN the program to hear the latest sound. Of 
course, you can do it the other way around. That is, make the first loop short 
and the second loop long. 

There's room to add a FOR-NEXT to pause between lines 12(3 and 190 or 
between 220 and 290, so be sure to experiment with the effects created by 
doing that. 
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A BRIEF REVIEW 

So far in this chapter you've learned to use a FOR-NEXT loop to: 

• Play all or part of the note spectrum. 

• Count backwards through the note range. 

• Count by steps both backwards and forwards. 

• Create a rising and falling pitch by using back-to-back loops. 

You have also learned to use a nested loop to pause after each note. 

We suggest that you thoroughly explore these possibilities before going 
on. You'll undoubtedly discover many things we haven't thought to men- 
tion. 

Try to write programs using INPUT statements to explore some different 
parameters. For example, try to INPUT different values for tone [even 
numbers to 14). Remember, tone is the third parameter in the SOUND 
statement. 

As you do this, you'll probably get some ERROR messages. Don't be 
discouraged. Every programmer, no matter how skilled, experiences this. 
Sometimes you find out what the rules of a particular language (in this case 
ATARI BASIC) are by just trying things to see if they work. 

As a matter of fact, we didn't just sit down and type in the programs you 
see in this book. We got several ERROR messages before we got them the 
way we wanted them. 

There's an ancient Chinese proverb that goes something like: 

************************ 

RIGHTEOUS PERSISTENCE BRINGS GOOD FORTUNE 

************************ 



PITCH GOES BOTH WAYS 

Another way to have the computer count is shown in lines 110 and 120 of 
the following program: 

100 REM ** SUBTRACTION METHOD 
110 FOR N = TO 255 

210 SOUND 0, 255-N, 10, 10 

310 NEXT N 

410 GOTO 110 
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ENTER and RUN this program and you'll hear the pitch of the sound 
rising just as it would if lines 110 and 210 were: 

110 FOR N = 255 TO STEP -1 
210 SOUND 0,N, 10, 10 

In the version we've used above, where the computer subtracts the value 
of N from 255 in the SOUND statement each time through the loop, here's 
what happens. 

First, line 110 gives N a value of 0. Then, in the SOUND statement in line 
210 the note value becomes: 

255 - = 255 

Next time through the cycle, N gets a value of 1. So the note value in the 
SOUND statement becomes: 

255 - 1 = 254 

And so on through the entire loop. 

This method of counting through the loop backwards gives you the 
opportunity to have the pitch of two voices going in opposite directions 
within one FOR-NEXT loop. You use two SOUND statements to do this, as 

follows: 

100 REM ** PITCH GOES BOTH WAYS 
110 FOR N = TO 255 

210 SOUND 0,N, 10, 10 
260 SOUND 1 , 255-N ,10,10 

310 NEXT N 

410 GOTO 110 

ENTER and RUN this program to hear the sound it creates. Line 210 is 
playing note values beginning at and increasing to 255, thus causing a 
rising pitch. Line 260 is playing notes going in the opposite direction; that 
is from 255 to 0, thus creating a falling pitch. Figure 5-1 pictures what's 
happening. 

You can use this technique to have a rising and falling pitch converge 
upon some note in the middle of the spectrum. That is, they stop rising or 
falling when they get to the same note and continue to play that note. 
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Figure 5-1 Two Voices Going in Opposite Directions 



The two voices pass each other 
in the middle 



Voice 
starts here 



Voice 1 
ends here 











1 2 3 ■•■ 


253 254 255 



Voice 
ends here 

Voice 1 

begins here 



Note values 

ENTER and RUN this program to hear a rising and falling pitch converge 
upon a single note: 

100 REM ** CONVERGING TO SINGLE NOTE 
110 FOR N = TO 125 

210 SOUND 0,N, 10, 10 
260 SOUND 1 , 250-N ,10,10 

310 NEXT N 

410 GOTO 410 

Figure 5-2 pictures this phenomenon. 



Figure 5-2 Two Voices Converge and Play a Single Sustained Note 



The two voices 
meet here 



1 2 3 



125 
Note values 



248 249 250 
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You can use this technique playing part of the spectrum as well. You 
might have something like this: 



100 REM ** PITCH GOES BOTH WAYS 
110 FOR N = 40 TO 50 

210 SOUND 0,N, 10 , 10 
260 SOUND 1 , 100-N .10,10 



Plays note values 
from 60 to 50 



310 NEXT N 

410 GOTO 410 

ENTER and RUN this program and then try some variations on lines 110 
and 260 for yourself. 

PAUSE BETWEEN THE VOICES 



A short loop to pause between the two voices will give you yet another 
sound, but it will be most effective if you turn off each voice (as you learned 
in Chapter 4) while the other voice is playing. The following program gives 
an example of how this might be clone: 

100 REM ** SUBTRACTION METHOD 
110 FOR N = TO 250 

200 REM ** HIGH NOTES 

210 SOUND 0,250-N, 10, 10 

220 FOR P=l TO 5 

230 NEXT P 

240 SOUND 0,0,0,0 



Causes note for 
each voice to be 
played separately 



250 REM ** LOW NOTES 

260 SOUND , 250-N , 10 , 1( 

270 FOR P = l TO 5 

280 NEXT P 

290 SOUND 1,0,0,0 

310 NEXT N 

410 GOTO 410 



As you may have guessed, there is plenty of room to explore here, by 
changing the length of one or both of the pause loops in this program. Once 
again, the INPUT statement can help you explore these possibilities. Also 
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try using different values for the tone parameter in the SOUND statement 
with this program. Remember, tone is even numbers from to 14 inclusive. 
We'll look at some ways to use three and four voices to create sound 
effects later, but don't be afraid to try programs using three or four voices on 
your own now. You'll probably find plenty of things we haven't thought of. 



ATTACK AND DECAY 

Have you ever wondered what makes a piano playing the note middle C 
sound different from a violin playing the same note? 

Actually many factors contribute to the characteristic sound of a particu- 
lar instrument. As a matter of fact, a very exciting science called psycho- 
acoustics studies these factors in detail. We won't be able to go very deeply 
into the nature of sound in this book, but we will look at a few ways to 
"shape" notes with ATARI BASIC. 

Two very important factors contributing to the shape of a note are its 
attack and its decay. 

Attack 

The attack of a note refers to how fast it reaches its maximum volume. A 
note with a fast attack (typical of the piano) will reach its maximum volume 
very quickly. A note with a slow attack (typical of the violin) will take 
longer to reach its maximum volume. This is pictured in Figure 5-3. 

You can affect the attack of a note with ATARI BASIC by using a 
FOR-NEXT loop with the loudness parameter of the SOUND statement. To 
explore this, first ENTER and RUN the following program: 

120 SOUND 0, 121, 10 , 10 
310 FOR P=0 TO 500 
320 NEXT P 

It briefly plays the note middle C as you would expect. Now RUN the 



Figure 5-3 Slow Attack-Fast Decay 

Slow Attack-Fast Decay 




Time 
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program a few more times, paying very close attention to how the sound 
starts. If you tjrpe RUN and then wait a few seconds before you press 
RETURN, it will help you with this experiment. 

Once you've done that, add the following lines to the program: 

100 REM ** ATTACK LOOP 
110 FOR L = TO 15 
190 NEXT L 

Also change line 120 to: 

120 SOUND 0, 121, 10, L 

Your program listing should now look like this: 

100 REM ** ATTACK LOOP 
^^r\\0 FOR L = TO 15 
Changes attack of --<Cr 120 SOUND 0, 121, 10, L 
^ 190 NEXT L 
299 REM 

310 FOR P = TO 500 
320 NEXT P 



note 



When you ENTER and RUN this program, you'll hear that the note 
doesn't have such an abrupt beginning as it did before. This is because the 
attack is much slower. 

You can slow the attack of the note in this program even further by 
adding a very short pause loop as follows: 

150 REM ** PAUSE 
160 FOR P = l TO 10 
170 NEXT P 

The program listing now looks like this: 

100 REM ** ATTACK LOOP 
110 FOR L = TO 15 
120 SOUND 0, 121, 10, L 

150 REM ** PAUSE 
•160 FOR P = l TO 10 
170 NEXT P 

190 NEXT L 

299 REM 

310 FOR P = TO 100 

320 NEXT P 



Slower attack 
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Changes in the length of the pause in lines 160 and 17(3 will produce 
variations in the attack of the note. It is worth exploring. See if you can 
make some changes in the program to do this with an INPUT statement: 
then have a look at our program below. 

Program to INPUT changes in attack of note: 




20 PRINT "THE HIGHER THE NUMBER" 
30 PRINT "THE SLOWER THE ATTACK" 
40 PRINT "WHAT VALUE FOR ATTACK" 

50 INPUT A 

100 REM ** ATTACK LOOP 
110 FOR L = TO 15 
120 SOUND 0, 121, 10, L 

150 REM ** PAUSE 
160 FOR P = l TO A 
170 NEXT P 
190 NEXT L 



200 REM ** PLAYS NOTE A WHILE 
210 FOR P=l TO 100 
220 NEXT P 



Decay 

The speed with which the loudness of a note falls off after reaching its 
maximum loudness is called the decay of the note. 

To affect the decay of a note, use the FOR-NEXT loop to count the 
loudness parameter in reverse. For example: 

300 REM ** DECAY LOOP 
310 FOR L=15 TO STEP -1 
320 SOUND 0, 121, 10, L 

390 NEXT L 

ENTER and RUN this short program. It plays the note pretty fast, but 
there is a slight decay on the note. Run it a few more times, and then add 
this nested loop to pause within the decay loop. 



350 REM ** PAUSE 
360 FOR P = l TO 10 
370 NEXT P 



SOME SPECIAL EFFECTS WITH SOUND 77 



Now your complete listing should look like this: 

300 REM ** DECAY LOOP 
310 FOR L=15 TO STEP -1 
320 SOUND 0, 121, 10, L 

350 REM ** PAUSE 
360 FOR P=l TO 10 
370 NEXT P 

390 NEXT L 

This begins to give the note a shape closer to that of a harpsichord. Notice 
that in this case we are not using a loop to slow down the attack of the note, 
so it has a fast attack and a slow decay. This is pictured in Figure 5-4. 

It may seem like you are doing a lot of programming just to make such 
minor changes in the sound of a single note, but you'll soon learn how to 
use these loops with a READ-DATA program similar to the one you used in 
Chapter 4. While you still have the decay loop though, see if you can 
change the pause loop and use an INPUT statement to affect the decay. 
Then have a look at how we did it below. 
Program to INPUT decay as a variable: 




20 PRINT "THE HIGHER THE NUMBER" 
30 PRINT "THE SLOWER THE DECAY" 
40 PRINT "WHAT VALUE FOR DECAY" 

50 INPUT A 

300 REM ** DECAY LOOP 

310 FOR L=15 TO STEP -1 

320 SOUND 0, 121, 10, L 

350 REM ** PAUSE 

360 FOR P=l TO A 

370 NEXT P 



390 NEXT L 

Now delete all the lines of this program up to line 300 by typing each line 
number and then pressing RETURN. Change line 360 to: 



360 FOR P = l TO 10 
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Figure 5-4 Fast Attack-Slow Decay 

Fast Attack-Slow Decay 




Time 



Keep lines 300 through 390 for the next section though. Here's what you 
should have: 

300 REM ** DECAY LOOP 
310 FOR L=15 TO STEP -1 
320 SOUND 0, 121, 10, L 

350 REM ** PAUSE 
360 FOR P=l TO A 
370 NEXT P 

390 NEXT L 



Attack and Decay 
on the Same Note 

Just as you used back-to-back FOR-NEXT loops to create a rising and falling 
pitch in the same program, you can affect the attack and decay of the same 
note by simply putting attack and decay loops back-to-back in one program. 
If you still have lines 300 through 390 from the previous program, just add 
the following lines: 



SOME SPECIAL EFFECTS WITH SOUND 79 



100 REM ** ATTACK LOOP 
110 FOR L = TO 15 
120 SOUND 0, 121, 10, L 

150 REM ** PAUSE 
160 FOR P=l TO 10 
170 NEXT P 

190 NEXT L 

200 REM ** PLAYS NOTE A WHILE 
210 FOR P=l TO 100 
220 NEXT P 

If not, simply type NEW, press RETURN, and ENTER the following 
program: 

100 REM ** ATTACK LOOP 
110 FOR L = TO 15 
120 SOUND 0, 121, 10, L 

150 REM ** PAUSE 
160 FOR P=l TO 10 

170 NEXT P 

190 NEXT L 

200 REM ** PLAYS NOTE A WHILE 
210 FOR P=l TO 100 
220 NEXT P 

300 REM ** DECAY LOOP 
310 FOR L=15 TO STEP -1 
320 SOUND 0, 121, 10, L 
350 REM ** PAUSE 
360 FOR P=l TO 10 
370 NEXT P 

390 NEXT L 

If you want to hear the note repeat, just add the following: 

410 GOTO 110 

Experiment with changes in lines 160 and 360 to affect the attack and 
decay of the note before going on to the next section. 
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LOUDNESS GOING BOTH WAYS 

Another way to shape the note is to use two voices and have the loudness 
going in both directions within the same loop. ENTER and RUN the follow- 
ing program to hear how this affects the shape of the note: 



100 REM ** LOUDNESS GOES BOTH WAYS 
110 FOR L = TO 15 
120 SOUND 0, 121, 10, L 
130 SOUND 1, 121, 10,15-L 

200 REM ** CHANGES SHAPE OF NOTE 
210 FOR P=l TO 10 
220 NEXT P 

250 NEXT L 



Try some variations in the length of the pause in line 15(3 on your own. 

Many of the changes we've been making in the attack and decay of the 
note are very subtle. They are worth exploring both to increase your 
knowledge of ATARI BASIC and to better understand the nature of sound. 



YOUR OWN SONG 

In the remainder of this chapter, we'll build a program in which you can 
combine a number of the techniques you've learned for manipulating 
sound with ATARI BASIC. We will structure the program so that you can 
add and subtract blocks or routines of your own. 

To begin, let's work with a program similar to the one at the end of the last 
chapter which uses READ and DATA statements to play a melody. 

1 REM ** YOUR OWN SONG 



100 REM ** READS THE NOTE 

120 READ N 

220 SOUND 0,N, 10, 10 

310 FOR P = l TO 100 
320 NEXT P 

500 REM ** PLAYS NEXT NOTE 

910 GOTO 120 

1110 DATA 121,81,96,60,64 
1120 DATA 35,45,64,108, 121 
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ENTER and RUN this program. It's a little different in structure from the 
version in Chapter 4 (there are no graphics and some of the line numbers 
are slightly different), but it is still YOUR OWN SONG. 



Restore Data 

and Repeat the Melody 

Now that you've become familiar with FOR-NEXT loops, here's a way to 
RESTORE DATA and READ the melody repeatedly instead of just once. 
You'll also finally be able to stop getting the same ERROR message you get 
every time you RUN the program above. Add these lines: 

110 FOR CYCLE=1 TO 10 

510 NEXT CYCLE 
520 RESTORE 
910 GOTO 110 

Line 510 replaces the GOTO statement that was there. Line 910 sends us 
to line 110 instead. Here's the complete listing: 

1 REM ** YOUR OWN SONG 



Counts ten note 
values in DATA 
statements 



Lets you use the 
same DATA over 
again 




100 REM ** READS THE NOTE 
110 FOR CYCLE = 1 TO 10 
120 READ N 
220 SOUND 0,N, 10, 10 

310 FOR P=l TO 100 
320 NEXT P 

500 REM ** PLAYS NEXT NOTE 
510 NEXT CYCLE 
520 RESTORE 

910 GOTO 110 



1110 DATA 121,81,96,60,64 
1120 DATA 35,45,64,108, 121 

RUN the program like this, and you'll hear the melody repeat. 

We want to count ten notes in the DATA table in lines 1110 and 1120. 
This is done with the FOR-NEXT CYCLE loop in lines 110 through 510. 

Each time through the cycle, another note value is read from the DATA 
table and played in the SOUND statement in line 220. Lines 310 and 320 
keep the note on briefly and then the next note is read, and so on until the 
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cycle has been completed ten times. In this way, it reads the ten note values 
in the DATA table. 

If you have the cycle play only five times: 

110 FOR CYCLE=1 TO 5 

it will play the first five notes over and over. The cycle must be repeated 
once for each piece of DATA (in this case note values). 
If you made line 110: 

110 FOR CYCLE=1 TO 15 

it will play the first ten notes, and you'll get an out-of-data error (ERROR -6 
AT LINE 120). 

The READ statement (line 120), the SOUND statement (line 220), and the 
pause loop (lines 310 and 320) should all be within the FOR-NEXT CYCLE 
loop (lines 110 through 510). 

Change Decay of Notes 
Within READ-DATA Melody 

Now let's change the decay of the notes as they are played. First make the 
pause much shorter. Change line 310 to: 

310 FOR P=l TO 5 

Now add: 

200 REM ** DECAY 
210 SOUND 0,N, 10, L 
390 NEXT L 

You can change the decay by changing line 310 if you wish, or you can 
completely replace the decay loop (lines 200 through 390) with an attack 
loop, by making line 210: 

210 FOR L=15 TO STEP -1 

Other possibilities might be: 

• Attack and decay on the same note. 

• Loudness going both ways. 

Try to replace the decay loop we've used with one or more of these. Be 
sure that any loop you use to change tbe shape of the notes occurs within 
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the FOR-NEXT CYCLE and begins after the READ statement, and that all 
loops are properly nested. 

You could also include a loop for ascending or descending pitch within 
the FOR-NEXT CYCLE loop, but the nesting gets a little tricky. Try it if you 
wish. 

We've chosen to have a descending pitch loop outside the FOR-NEXT 
CYCLE loop and after the RESTORE statement in line 520, like this: 

600 REM ** DESCENDING PITCH 
610 FOR N=0 TO 255 
620 SOUND 0.N.10, 10 
630 NEXT N 

910 GOTO 110 

After adding lines 600 through 610 above, RUN the program and you 
should hear the melody played. You then hear the descending pitch cycle 
you learned at the beginning of the chapter. 
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Finally add: 

700 REM ** BIRDS 
710 FOR CYCLE=1 TO 12 
720 FOR N = TO 10 
730 SOUND 0,N, 10, 10 
740 NEXT N 
750 NEXT CYCLE 

to get this listing: 

1 REM ** YOUR OWN SONG 



100 REM ** READS THE NOTE 
110 FOR CYCLE=1 TO 10 
120 READ N 



200 REM ** DECAY LOOP 

I 210 FOR L=15 TO STEP 

220 SOUND 0,N, 10, L 



I 



310 FOR P=l TO 5 
320 NEXT P 

390 NEXT L 

500 REM ** PLAYS NEXT NOTE 

510 NEXT CYCLE 

520 RESTORE 

600 REM ** DESCENDING PITCH 
610 FOR N = TO 255 
620 SOUND 0,N, 10, 10 
630 NEXT N 

700 REM ** BIRDS 
710 FOR CYCLE=1 TO 12 
720 FOR N = TO 10 
730 SOUND 0,N, 10, 10 
740 NEXT N 
750 NEXT CYCLE 

910 GOTO 110 

1110 DATA 121,81,96,60,64 
1120 DATA 35,45,64,108,121 
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This is a nested loop that plays a high, descending pitch (lines 720 
through 740). This is repeated twelve times by the FOR-NEXT CYCLE loop 
in lines 710 through 750. When you RUN the program after adding these 
lines, you'll hear an example of how sound effects can follow one after the 
other. 

Now add a sound effect of your own beginning at line 800. Spend some 
time practicing the art of moving different routines around by deleting 
some of the routines we've used and replacing them with your own 
routines. 

In the next chapter you will learn to make these into subroutines to be 
called upon at different places in a program. 

Self-Test 

1. To play note values from 50 through 100, what should you make line 
110 below? 

110 

120 SOUND 0,N, 10, 10 
130 NEXT N 

2. To count by 5's, what must you do to line 110? 

110 FOR N = TO 100 

3. How would you count by 5's backwards in the same program? 

4. What's wrong with the following program? 

110 FOR L=15 TO STEP -1 
120 SOUND 0, 121, 10, L 
125 FOR P=l TO 500 
130 NEXT L 
150 NEXT P 

5. What's the easiest way to delete a line from a program? 

6. The way in which a note begins is called its 

7. What does this loop affect? 



110 FOR L=15 TO STEP -1 
120 SOUND 0, 121, 10, L 
130 NEXT L 

8. What command allows you to reuse the same DATA in a program'; 
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Answers 

1. Line 110 becomes: 

110 FOR N = 50 TO 10!? 

2. Line 110 is changed to: 

110 FOR N=100 TO STEP -1 

3. Make line 110: 

FOR N=100 TO STEP -5 

4. The pause loop is not properly nested within the loudness loop. 

5. Type the line number for the line you wish to delete and then press 
RETURN. 

6. Attack 

7. The decay of the note 

8. RESTORE 

Challenges 

1. Write a program with a very slow attack that allows you to INPUT 
tone as a variable. 

2. Write a program using four voices where two voices stay the same. 



CHAPTER SIX 



Subroutines for Graphics 
and Sound 



In this chapter you will learn about graphic modes without text windows. 
You will also learn to use FOR-NEXT loops to create various graphics 
effects and how to make subroutines. 



GRAPHIC MODES WITHOUT TEXT WINDOW 

The graphics modes we have used so far (3-7) have had a text window at 
the bottom of the screen. 
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If you wish to use a graphics mode with exactly the same size plot points 
but without a text window, add sixteen to whatever vou are using: 



with text window: GRAPHICS 3 
without text window: GRAPHICS 19 

or 3 + 16 
with text window: GRAPHICS 7 
without text window: GRAPHICS 23 

or 7 + 16 




ENTER and RUN the following short program to plot a point in graphics 
mode 19. which has no text window: 

100 REM ** NO TEXT WINDOW 
110 GRAPHICS 19 
120 COLOR 1 

200 REM ** PLOTS DOT 
210 PLOT 5,5 

500 REM ** WAITS HERE 
510 GOTO 510 

RUN this program to see what happens. The screen should look like this: 




The computer plots the same point that it would if you had used graphics 
mode 3, but there's no text window. 

You may recall that the maximum number of rows available in graphics 
mode 3 was twenty (numbered Id through 19). Using graphics mode 19 
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instead gives you four more rows in which to plot points. The number of 
columns is the same. Graphics mode 19 has: 

40 columns (0-39) 
24 rows (0-23) 

Now let's use these limits to plot points in each corner of the screen with 
graphics mode 19. To do this, first change line 210 to: 

Upper left comer ► 210 PLOT , 

Remember this can be done by simply typing the new line and pressing 
RETURN. 

Then add these lines: 



Upper right corner -220 PLOT 39 , 

Lower right corner - 230 PLOT 39 , 23 

Lower left corner 240 PLOT , 23 



Your complete listing should now look like this: 




100 REM ** NO TEXT WINDOW 
110 GRAPHICS 19 
120 COLOR 1 

200 REM ** PLOTS DOT 
210 PLOT 5,5 
220 PLOT 39,0 
230 PLOT 39,23 
240 PLOT 0,23 

500 REM ** WAITS HERE 
510 GOTO 510 



You'll see more of these graphics modes without text windows in this 
chapter. Try some other graphics modes without text windows on your 
own. 
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PLOT POINTS WITH NESTED FOR-NEXT LOOPS 

Let's make use of the concept of nested FOR-NEXT loops, which you 
learned in Chapter 5, to plot points in several columns and rows. Just 
replace lines 210 through 240 of your program with these lines: 

21!? FOR X = TO 39 STEP 5 
210 FOR Y = TO 23 STEP 5 
230 PLOT X,Y 
240 NEXT Y 
250 NEXT X 

Your complete listing should now be: 

1 REM ** COLOR DOTS 
50 GRAPHICS 19 

100 REM ** CHANGES COLORS 
120 COLOR 1 

200 REM ** PLOTS DOTS 
210 FOR X = TO 39 STEP 5 
220 FOR Y = TO 23 STEP 5 
230 PLOT X,Y 
240 NEXT Y 
250 NEXT X 

500 REM ** STARTS AGAIN 
510 GOTO 120 
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Now RUN the program and the screen should look like this: 




Changing the value of the STEP function in lines 210 and 220 will change 
the pattern of dots that appear on the screen. Can you think of a way to make 
these changes using an INPUT statement? 

See what happens if you remove the STEP function from one of the lines 
and then from both lines. 



CHANGE COLOR OF DOTS 

Let's nest these loops within yet another loop to change the color of the 
dots. First, add these lines: 



100 REM ** CHANGE COLORS 
110 FOR C = l TO 3 

400 REM ** PICKS ANOTHER COLOR 
410 NEXT C 

and change line 120 to: 

120 COLOR C 
Finally, line 510 needs to be made: 

510 GOTO 110 
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By now we assume you know that REM statements are always optional 
when adding new lines to a program. 

The program listing should look like this: 

1 REM ** COLOR DOTS 
50 GRAPHICS 19 

100 REM ** CHANGES COLORS 
110 FOR C = l TO 3 
120 COLOR C 

200 REM ** PLOTS DOTS 
210 FOR X = TO 39 STEP 5 
220 FOR Y = TO 24 STEP 5 
230 PLOT X,Y 
240 NEXT Y 
250 NEXT X 

400 REM ** PICKS ANOTHER COLOR 
410 NEXT C 

500 REM ** STARTS AGAIN 
510 GOTO 110 

ENTER and RUN this program and you'll see the colors continually go 
from orange to yellow, to green, and then to orange again, and so on. This 
occurs as rapid waves going across the screen. 

We didn't use COLOR in line 110 of the program because we didn't 
want to erase the dots. Try having line 110 count from through 3 to see 
what happens. 



A SUBROUTINE TO PLOT THE DOTS 

In this chapter and in Chapter 5, you've been learning a lot about construct- 
ing routines to manipulate sound and graphics. Often you will want a 
particular routine to be repeated at various times during the RUN of a 
program. A convenient way to accomplish this is to make that routine a 
subroutine. 

Although it isn't absolutely necessary, it's generally a good idea to put 
subroutines after the main body of the program. The following program 
makes a subroutine out of a section of the "Color Dots" program above that 
plots the dots: 
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::- 



1 REM ** COLOR DOTS 
50 GRAPHICS 19 

100 REM ** CHANGES COLORS 
110 FOR C=l TO 3 
120 COLOR C 

200 REM ** USES SUBROUTINE 
210 GOSUB 2010 

400 REM ** PICKS ANOTHER COLOR 
410 NEXT C 

500 REM ** STARTS AGAIN 
510 GOTO 110 



REM ** PLOTS DOTS - SUBROUTINE 
2010 FOR X = 2 TO 37 STEP 5 
2020 FOR Y = TO 23 STEP 5 
2030 PLOT X,Y 
2080 NEXT Y 
2090 NEXT X 

2100 REM ** PICKS UP AFTER GOSUB 
2110 RETURN 



AN EASY WAY TO CHANGE LINE NUMBERS 

If you don't want to do a lot of extra typing, you can change the number of a 
program line by typing the new line number over the old line number and 
pressing RETURN. For example, to make line 2000 out of this line: 

200 PLOT DOTS 

use the CTRL key and the arrow keys as described in Chapter 1 to move the 
cursor until it covers the 2, like this: 

Cursor - §00 PLOT POINTS 

Now type 2000 and press RETURN. 
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You will now have both of these lines in your listing: 

200 REM ** PLOT DOTS 



2000 REM ** PLOT DOTS 

Delete line 200 by typing 200 and pressing RETURN. If you still have the 
"Color Dots" program without a subroutine, change lines 210 through 240 
to 2010 through 2040 in this way. 

If you get hung up trying to do this, you can always retype the new lines 
(2010 through 2040) and delete the old ones (210 through 240). 

In whatever way it's easiest for you, make sure you have the listing we've 
shown above, and then RUN the program. It does just what it did before; 
that is, it plots the dots and then sends waves of color through them. The 
way the present program does this is a little different though. 

In this version, instead of having the loop that plots the dots nested 
within the loops to change colors (lines 110 through 410), we've placed it at 
the end of the program beginning at line 2010, or as a subroutine. 

When the program runs, a value is picked in line 110 and entered in the 
COLOR statement in line 120. As the name would imply, the GOSUB 
statement at line 210 takes us out of the main body of the program and 
sends us to line 2010. The computer then executes line 2010 and all the 
lines that follow, until it reaches the RETURN statement in line 2110. As 
the name of that statement would imply, it tells the computer to return to 
the main body of the program. It always returns to the program line 
immediately after the GOSUB statement. In this case it returns to line 400, 
which the computer ignores since it is a REM statement. So it actually picks 
up at line 410, which completes the COLOR Loop in lines 110 through 410. 

Each time the computer gets to the GOSUB statement in line 210, it 
executes the entire subroutine to plot dots as though it were still nested 
within the FOR-NEXT loop for color. 

Now let's look at some ways to execute routines within the main body of 
the program and then occasionally use the subroutine again. For example, 
suppose you want to overlay another figure on the screen while the dots are 
still there (and then have the dots blink off and on each time they change 
colors). 

First add these lines to draw a figure: 
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300 REM ** MORE LINES 
310 DRAWTO 2,0 
320 DRAWTO 37 ,0 
330 DRAWTO 37,20 
340 DRAWTO 2,20 
350 DRAWTO 2,0 

If you've been experimenting with adding COLOR & in line 110, make 
sure 110 is: 



110 FOR C = l TO 3 
The complete listing should now be: 



Plots dots first 



Then draws figure 



1 REM ** FIGURE OVERLAYS DOTS 
50 GRAPHICS 19 

100 REM ** CHANGES COLORS 
110 FOR C=l TO 3 
120 COLOR C 

200 REM ** USES SUBROUTINE 
I 210 GOSUB 2010 



300 REM ** MORE LINES 
310 DRAWTO 2,0 
320 DRAWTO 37,0 
330 DRAWTO 37,20 
340 DRAWTO 2,20 
350 DRAWTO 2,0 



400 REM ** PICKS ANOTHER COLOR 
410 NEXT C 

500 REM ** STARTS AGAIN 
510 GOTO 110 

2000 REM ** PLOTS DOTS - SUBROUTINE 

2010 FOR X = 2 TO 37 STEP 5 

2020 FOR Y = TO 23 STEP 5 

2030 PLOT X, Y 

2080 NEXT Y 

2090 NEXT X 

2100 REM ** PICKS UP AFTER GOSUB 
2110 RETURN 
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ENTER and RUN the program and you'll get this on the screen, with the 
colors changing as they did before. 




Notice that the color of the dots changes just an instant before the figure. 
After each new color is selected in line 120, the GOSUB statement in line 
210 plots the dots in that color before the figure is drawn in the new color at 
line 310. 

Also notice that we've begun the routine to draw the figures with DRAW- 
TO statements at line 310. If you look carefully at lines 2010 and 2020 in the 
subroutine, you'll see that the last point it plots is at column 37, row 20, at 
the bottom right corner of the screen. The RETURN statement then brings 
us back to line 310, which draws a line from the dot in the bottom right 
corner of the screen to the dot in the upper left corner of the screen. That's 
the diagonal in the figure. The next four DRAWTO statements (lines 310 
through 350) draw the border by drawing clockwise from one corner dot to 
the next. 



ERASE THE DOTS WHILE THE FIGURE STAYS 

Now we can take advantage of the subroutine to erase the dots while the 
figure stays on the screen. Just add the following lines: 



360 REM ** ERASE DOTS 
370 COLOR 
380 GOSUB 2010 
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The listing now should be: 



1 REM ** COLOR DOTS 
50 GRAPHICS 19 

100 REM ** CHANGES COLORS 
US? FOR C = l TO 3 
120 COLOR C 



Uses subroutine 
again 



200 REM ** USES SUBROUTINE 
210 GOSUB 2010 

300 REM ** MORE LINES 
310 DRAWTO 2,0 
320 DRAWTO 37,0 
330 DRAWTO 37,20 
340 DRAWTO 2,20 
350 DRAWTO 2,0 
36j? REM ** ERASE DOTS 
370 COLOR 
380 GOSUB 2010 

400 REM ** PICKS ANOTHER COLOR 
410 NEXT C 

500 REM ** STARTS AGAIN 
510 GOTO 110 



REM ** PLOTS DOTS - SUBROUTINE 
2010 FOR X = 2 TO 37 STEP 5 
2020 FOR Y=0 TO 23 STEP 5 
2030 PLOT X, Y 
2080 NEXT Y 
2090 NEXT X 

2100 REM ** PICKS UP AFTER GOSUB 
2110 RETURN 



Now after drawing the figure, the color changes to in line 370 and the 
GOSUB statement sends us down to plot all the dots in COLOR 0. As you 
may recall from Chapter 2, this will erase the dots because it plots them in 
the same color as the background screen. 
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CHANGE THE FIGURE 

We're going to give you one more idea that demonstrates just how much 
one line can sometimes change a program, and then we'll offer some 
suggestions on how you might explore the concepts before going on. 

Take a careful look at the subroutine to plot the dots. If you put a 
DRAWTO statement after the PLOT statement in line 2030, but before 
either of the NEXT statements in lines 2080 and 2090, the machine will 
draw a line to whatever point you indicated after it plots each of the dots. 
That adds quite a few lines to the drawing. To get a sense of this, add this 
line to the program: 

2(2(50 DRAWTO 19, 10 

This tells the computer to draw a line from each point it plots to a point 
more or less in the center of the screen. 

Since the way this new figure comes on and off the screen is a major part 
of the effect created by adding this line, we won't try to picture it for you. 
RUN the program and you'll see what we mean. 

If you have an ATARI 410® Program Recorder or an ATARI 810® Disk 
Drive system, we suggest you save this program before experimenting since 
we will continue to build upon it in the second half of the chapter. The 
manual that accompanies each of these systems explains their use. We will 
not attempt to do so here. 



IDEAS FOR EXPLORATION 

Try making line 2050: 

2050 DRAWTO A, B 

and then add a few INPUT statements to change the location of the point 
to which the lines are drawn. Move line 2050 to line 2085 between the 
NEXT Y and NEXT X statements and explore that using INPUT statements. 

NESTED SUBROUTINES 

Just as you are able to nest FOR-NEXT loops within other loops, you can 
also nest subroutines. One subroutine is not actually placed within the 
other as with FOR-NEXT loops, but you can use a GOSUB statement to 
temporarily leave a subroutine. Take a look at the subroutine for the 
graphics program we've been working with in this chapter. 
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2000 REM ** PLOTS DOTS - SUBROUTINE 

2010 FOR X = 2 TO 37 STEP 5 

2020 FOR Y = TO 23 STEP 5 

2030 PLOT X,Y 

2080 NEXT Y 

2090 NEXT X 

2100 REM ** PICKS UP AFTER GOSUB 
2110 RETURN 

Now, suppose you'd like to have some sounds to accompany the graphics 
that occur in this subroutine. Let's write a subroutine to accomplish this. 
First, put a GOSUB statement at line 2060 like this: 

2060 GOSUB 3010 

And then add these lines: 

3000 REM ** SUBROUTINE TO PLAY NOTES 
3010 FOR L=15 TO STEP -5 
3020 SOUND 0,X + Y,10,L 
3030 NEXT L 
3040 RETURN 

The listing of the two subroutines should now be: 





2000 REM ** PLOTS DOTS - SUBROUTINE 

2010 FOR X = 2 TO 37 STEP 5 

2020 FOR Y = TO 20 STEP 5 

2030 PLOT X,Y 

2050 DRAWTO 19,10 

2060 GOSUB 3010 

2070 NEXT Y 

2080 NEXT X 

2100 REM ** PICKS UP AFTER GOSUB 
2110 RETURN 

3000 REM ** SUBROUTINE TO PLAY NOTES 
3010 FOR L = 15 to STEP -5 
3020 SOUND 0.X + Y, 10, L 
3030 NEXT L 
3040 RETURN 



The main body of the program remains the same. RUN the program and 
you'll hear it play a rapid sequence of notes as it is drawing the figure. It 
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plays the note sequence again as it erases the figure, then again as it redraws 
the figure, and so on until you stop the run. 

Each time through the FOR-NEXT loop in lines 2010 through 2110, after 
plotting a point and drawing a line, we come to the GOSUB statement at 
line 2060. This sends us to line 3010 where a note is played with decay 
loop. The note value used is the sum of the values of X and Y chosen in the 
original subroutine. 

Before looking at how we've clone it below, see if you can add a sub- 
routine to play a rising pitch with note values from 50 to similar to what 
you learned in Chapter 5. Have this occur after the figure is drawn and the 
notes played. HINT: The GOSUB statement to send you to the new sub- 
routine should occur after the FOR-NEXT loops for X and Y in the original 
subroutine. 

We added the following lines to do it: 



2090 GOSUB 3060 



and: 



3050 REM ** RISING PITCH 
3060 FOR N = 50 TO STEP -1 
3070 SOUND 0,N, 10, 10 
3080 NEXT N 
3090 RETURN 

Make sure you have the rising pitch subroutine added properly, and RUN 
the program. First you'll hear the note sequence played as the figure is 
drawn, then a whistle before it starts to erase. Once it's erased, you hear the 
whistle again before it draws the next figure, and so on until you stop the 
run. 

Here's the complete listing of the program: 

1 REM *** SOUND PATTERNS 
50 GRAPHICS 19 

100 REM ** CHANGES COLORS 
110 FOR C = l TO 3 
120 COLOR C 

200 REM ** USES SUBROUTINE 
210 GOSUB 2010 
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300 REM ** MORE LINES 
310 DRAWTO 2,0 
320 DRAWTO 37,0 
330 DRAWTO 37,20 
340 DRAWTO 2 , 20 
350 DRAWTO 2,0 
360 REM ** ERASE DOTS 
370 COLOR 
380 GOSUB 2010 

400 REM ** PICKS ANOTHER COLOR 
410 NEXT C; 

500 REM ** STARTS AGAIN 
510 GOTO 110 



REM ** PLOTS DOTS - SUBROUTINE 
2010 FOR X = 2 TO 37 STEP 5 
2020 FOR Y = TO 20 STEP 5 
2030 PLOT X,Y 
2050 DRAWTO 19, 10 
2060 GOSUB 3010 
2070 NEXT Y 
2080 NEXT X 
2090 GOSUB 3060 

2100 REM ** PICKS UP AFTER GOSUB 

2110 RETURN 

3000 REM ** SUBROUTINE TO PLAY NOTES 

3010 FOR L = 15 TO STEP -5 

3020 SOUND 0,X + Y, 10, L 

3030 NEXT L 

3040 RETURN 

3050 REM ** RISING PITCH 
3060 FOR N = 50 TO STEP -1 
3070 SOUND 0,N, 10, 10 
3080 NEXT N 
3090 RETURN 



The numbers 1 through 6 indicate the order in which program parts are 
executed. 
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You can also place a GOSUB statement in the main program to make use 
of this second subroutine. For example, add these lines and hear what 
happens when you RUN it: 

450 REM *** WHISTLES 3 TIMES 
460 FOR CYCLE = 1 TO 3 
470 GOSUB 3060 
480 NEXT CYCLE 

Now after it has drawn and erased the figure in each color while making 
sounds (after it has completed the loop in lines 110 through 410], it 
whistles three times before it starts again. 

But what happens if you try to go from the main program to the sub- 
routine to play notes in lines 3010 through 3040, by adding a line some- 
thing like: 

490 GOSUB 3010 

Try it and see what happens. 

If you listen carefully, you'll notice that after it goes through the cycle of 
different colored figures and whistles three times, it plays a single note 
before it starts again with the sequence of drawings and sound. Since the 
values for X and Y in the SOUND statement in line 3020 are taken from the 
subroutine in lines 2010 through 2080, and we've bypassed that subroutine 
by coming from the main program, the computer used the last values 
computed for the sum of X and Y (that is, 37 + 20) for a note value. 

In this case it didn't add much to the program, but it didn't "crash" the 
program either (that is, stop and give you an ERROR message). Be careful 
using nested subroutines in this way because often they will create errors or 
"bugs" in the program. 



FOR-NEXT GRAPHICS MODE 

In the beginning of this chapter, we discussed how to change graphics 
modes 3-7 to equivalent modes without text windows. You can use a 
FOR-NEXT loop to change graphics modes in such a way that a figure will 
change size on the screen. Let's add a few final lines to the program we've 
been using in this chapter to do this: 

30 REM *** CHANGE GRAPHICS MODE 
40 FOR G = 23 TO 19 STEP -2 
50 GRAPHICS G 

490 NEXT G 
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and change line 510 to: 

510 GOTO 40 

Add these lines and RUN the program. You'll see the same cycle of colors 
and sounds as before, but the figure will occur in three different sizes 
starting in the upper right corner of the screen. 

The STEP -2 in line 40 causes the computer to enter graphics mode 23 
(equivalent to GR. 7), then Mode 21 (equivalent to GR. 5), and finally 
graphics mode 19 (equivalent to GR. 3). We've skipped the even numbered 
modes 20 through 22 which are equivalent to modes 4 and 6 with text 
windows. This is because, as we mentioned in Chapter 3, these are two- 
color modes and we are using four colors (0 through 3) in this program. 

You can use modes 20 and 22 if you wish, but these modes use only 
values of and 1. Whenever a value of 2 is entered by the FOR-NEXT loop 
for COLOR in lines 110 through 410, the compuer will treat it as though it 
were a and erase the figure. This is called a default. Actually, when it sees 
a value of 3 for COLOR in these modes, it defaults to 1 and draws the figure 
in COLOR 1. 

In the four-color modes (3, 5, and 7) or (19, 21, and 23) any number above 
3 will default to a value of 0, 1, 2. or 3. For example: 

120 COLOR 5 
would default to: 

120 COLOR 1 
And: 

120 COLOR 11 
would default to: 

120 COLOR 3 

The FOR-NEXT loop for graphics must completely encompass the loop 
for COLOR. Or to say it the other way around, the FOR-NEXT loop for 
COLOR must be nested within the FOR-NEXT loop for graphics. 
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Graphics mode 
loop 



Color loop 



Whistle loop- 



Here's the complete listing for the program: 

1 REM *** PATTERN SIZE CHANGES 



30 REM ** CHANGE GRAPHICS MODE 
40 FOR G = 23 TO 19 STEP -2 
50 GRAPHICS G 

100 REM ** CHANGES COLORS 
110 FOR C = l TO 3 
120 COLOR C 

200 REM ** USES SUBROUTINE 
210 GOSUB 2010 



REM ** MORE LINES 
310 DRAWTO 2,0 
320 DRAWTO 37,0 
330 DRAWTO 37,20 
340 DRAWTO 2,20 
350 DRAWTO 2,0 
360 REM ** ERASE DOTS 
370 COLOR 
3$0 GOSUB 2010 

400 REM ** PICKS ANOTHER COLOR 
410 NEXT C 



450 REM ** WHISTLES 3 TIMES 
| 460 FOR CYCLE=1 TO 3 

470 GOSUB 3060 

I 480 NEXT CYCLE 

490 NEXT G 



500 REM ** STARTS AGAIN 
510 GOTO 40 



REM ** PLOTS DOTS - SUBROUTINE 
2010 FOR X = 2 TO 37 STEP 5 
2020 FOR Y = TO 20 STEP 5 
2030 PLOT X, Y 
2050 DRAWTO 19, 10 
2060 GOSUB 3010 
2070 NEXT Y 
2080 NEXT X 
2090 GOSUB 3060 
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2100 REM ** PICKS UP AFTER GOSUB 

2110 RETURN 

3000 REM ** SUBROUTINE TO PLAY NOTES 

3010 FOR L=15 TO STEP -5 

3020 SOUND 0.X + Y, 10, L 

3030 NEXT L 

3040 RETURN 

3050 REM ** RISING PITCH 
3060 FOR N = 50 TO STEP -1 
3070 SOUND 0,N, 10, 10 
3080 NEXT N 
3090 RETURN 

Once again, if you have an ATARI 410 Program Recorder or an ATARI 
810 Disk Drive system, we suggest you save this program for later reference. 

Experiment with "calling" the subroutines from a few more places in the 
program. Moving line 510 down to line 1010, or something similar, will 
give you room to add several more lines to the main program, Some 
possible additions are drawing and erasing another figure, introducing 
more sounds, and calling several new subroutines that you add to the end 
of the program. 

As you make these explorations, you'll probably see our old friend the 
ERROR message now and then. Don't give up; it's rather like trying to make 
it across the stream and testing to see which rocks are slippery or too loose 
to provide footing. Fortunately, it's a shallow stream so there's no chance of 
drowning, and sometimes getting your feet wet is how you learn the way. 
Here's a chart of the columns and rows and the colors available in graphics 
modes 3 through 7 and 19 through 21: 



Graphics Mode 


Columns 


Rows 


Colors 


3 Text window 
1 9 No texl window 


(0-39) 

(0-39) 


(0-19) 

(0-23) 


4 
4 


4 Text window 
20 No text window 


(0-79) 
(0-79) 


(0-39) 

(0-47) 


2 

2 


5 Text window 
2 1 No texl window 


(0-79) 
(0-79) 


(0-39) 
(0-47) 


4 
4 


6 Text window 
11 No text window 


(0-159) 
(0-159) 


(0-79) 
(0-95) 


2 
2 


7 Text window 
23 No text window 


(0-159) 
(0-159) 


(0-79) 
(0-95) 


4 
4 
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In Chapter 7 you'll learn about graphics modes 8 and 24, the SETCOLOR 
command, and how to do "high-resolution" graphics — graphics with much 
smaller plot points that let you draw fine lines. 

Self-Test 

1. To change from a graphics mode with text window to one with the 
same size plot points and no text window, what number do you add? 

2. What statement is used to leave the main program and execute a 
subroutine? 

3. What's needed before these lines can function as a subroutine? 

1010 SOUND 0. 121, 10, 10 
1020 SOUND 1,122, 10, 10 
1030 SOUND 2,60, 10,8 
1040 SOUND 3,61, 10,8 
1050 FOR P = l TO 1000 
1060 NEXT P 

4. Where does the RETURN statement at the end of a subroutine send 
you in the program? 

5. What's an easy way to change line numbers with ATARI BASIC? 

6. Can you leave one subroutine and execute another subroutine? 

7. In a nested subroutine, where does the RETURN statement send you? 

8. How many times will the subroutine be used in these lines? 

460 FOR CYCLE=1 TO 3 
470 GOSUB 3060 

480 NEXT CYCLE 



Answers 

1. 16 

2. A GOSUB statement 

3. A RETURN statement to bring you back to the main program 

4. To the program line immediately following the GOSUB statement 
that activated the subroutine 

5. Type the new line number over the old one 

6. Yes. This is called a nested subroutine. 

7. Back to complete the subroutine from which you came 

8. Three times 
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Challenges 

1 . In this chapter, we drew a figure on the screen and then erased it. See 
if you can construct a program that draws two separate figures and 
leaves one on the screen and erases the other, and then switches by 
redrawing the figure it has just erased and erasing the one it has just 
drawn. 

2. Try adding some routines for sound to accompany each of the figures. 



CHAPTER SEVEN 

The Finer Points 
of Graphics 



You've learned to use both two- and four-color graphics with and without 
text windows. In this chapter you will learn to use the SETCOLOR com- 
mand, which gives you greater variety of options for color grahics with your 
ATARI Computer. You will also learn to use a high-resolution graphics 
mode (8 or 24). Finally, you will learn to use IF-THEN statements to have 
the computer select variables or execute routines. 



SETCOLOR COMMAND 

The SETCOLOR command has three parameters. Let's use it in a short 
program and then discuss its functions. ENTER and RUN the following 
program: 
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1 REM *** SETCOLOR 

100 REM ** THE BEGINNING 
11(? GRAPHICS 19 
120 COLOR 1 

200 REM ** CHANGES COLORS 
220 SETCOLOR 2,8,6 
230 GOSUB 3010 

500 REM ** WAITS 
510 GOTO 510 



REM ** DRAW HEXAGRAM 
3010 PLOT 10, 10 
3020 DRAWTO 15 , 5 
3030 DRAWTO 25 , 5 
3040 DRAWTO 30, 10 
3050 DRAWTO 25, 15 
3060 DRAWTO 15. 15 
3070 DRAWTO 10, 10 
4090 RETURN 



This program is structured so that it will be easy to add more lines and 
routines later. 

When you RUN this program, you should gel an orange hexagram on the 
screen: 
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The three parameters of the SETCOLOR command are: 



Color Register (0 through 4) 

Hue (0 through 15) 

Luminance (Even numbers from to 14) 



In line 210 of the preceding program these are: 

210 SETCOLOR 2,8,10 

Each variable in the SETCOLOR command depends upon other commands 
used in the program, like the graphics mode used or the value used in the 
COLOR command. Since these variables can be combined in so many ways, 
we won't try to explain what each combination does. We will demonstrate 
some ways to make variables of the different parameters using INPUT 
statements and FOR-NEXT loops so that you can explore them yourself. 
Appendix D shows the relationship between different COLOR commands 
and the SETCOLOR command for each of the graphics modes. 

INPUT Color Register 

Let's make use of PRINT statements to print instructions on the screen 
before the graphics begin. Then we'll add an INPUT statement so that we 
can enter different values for color register. Add these lines: 

REM *** SETCOLOR PARAMETERS 

1 REM *** INPUT COLOR REGISTER 

10 PRINT "ENTER 0-4" 

20 PRINT "FOR COLOR REGISTER" 

25 PRINT 

50 INPUT CR 

The extra PRINT statement at line 25 will print a blank line so that the text 
is easier to read when it's printed. It's not essential to the function of the 
program, so you don't have to use extra print statements if you don't wish. 
Now change line 220 to: 

220 SETCOLOR CR,8,6 

To save yourself having to RUN the program each time you want to INPUT a 
new value for color register, replace line 510 with: 

510 FOR P=l TO 1 
520 NEXT P 
530 GOTO 10 
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This will cause the hexagram to stay on the screen briefly after you INPUT a 
value for color register and then go back and wait for you to INPUT another 
variable. 

Make sure you have this listing and then RUN the program: 

REM *** SETCOLOR PARAMETERS 

1 REM *** INPUT COLOR REGISTER 

10 PRINT "ENTER 0-4" 

20 PRINT "FOR COLOR REGISTER" 

25 PRINT 

30 INPUT CR 

1(2(0 REM ** THE BEGINNING 
110 GRAPHICS 19 
120 COLOR 1 
Changes color ' 

re8ister \^ 200 REM ** CHANGES COLORS 

220 SETCOLOR CR,8,6 
230 GOSUB 3010 

500 REM ** WAITS 
510 FOR P=l TO 1000 
520 NEXT P 
530 GOTO 10 

3000 REM ** DRAW HEXAGRAM 

3010 PLOT 10, 10 

3020 DRAWTO 15,5 

3030 DRAWTO 25 , 5 

3040 DRAWTO 30,10 

3050 DRAWTO 25 , 15 

3060 DRAWTO 15, 15 

3070 DRAWTO 10, 10 

4090 RETURN 

Different values for the color register will allow you to change the hue of 
either the figure, the background screen, or the text window. Color register 
doesn't change these by itself, but determines which (figure, background, 
or text window) will change hue when you vary the hue parameter. For 
example, when you enter a value of for color register, the hexagram will 
be blue. In COLOR 1, a value of for color register allows the hue of the 
figure to be changed. It is actually the value 8 for hue, which changes the 
color. 

To see this, enter a value of 4 for color register. Now the figure becomes 
orange and the background screen becomes blue. Orange is the "default" 
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color for the figure. Values of 1, 2, 3, or 4 will result in an orange figure 
regardless of the value entered for hue. 

Now try changing the graphics mode to graphics mode 3 in line 110, and 
you will get a light blue text window if you enter a value of 2 for color 
register. If you try to enter a value greater than 4 for color register, you'll 
"crash" the program; that is, you'll gel an ERROR message and have to start 
the program over. Be careful, too, when running this program to wait for the 
prompt (question mark) to come on the screen each time before you enter 
another value. If you try to enter another number while the machine is 
pausing at lines 510 and 520, the program will crash. 

We will look at the two remaining parameters in the SETCOLOR com- 
mand (hue and luminance), using a constant value of 1 in the COLOR 
command in line 120. Be sure to try some of the experiments we suggest 
using different values for the COLOR command. 



INPUT Hue 

The second parameter in the SETCOLOR command is hue. It can have 
values for through 15. To INPUT hue as a variable in the program we've 
been using, making the following additions and changes. 
Add: 

35 PRINT 

40 PRINT "ENTER 0-15" 
50 PRINT "FOR HUE" 
60 INPUT H 

and change line 220 to: 

220 SETCOLOR CR, H, 6 
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The complete listing is: 



REM *** SETCOLOR PARAMETERS 

1 REM *** INPUT COLOR REGISTER 

2 REM *** INPUT HUE 




10 PRINT "ENTER 0-4" 

20 PRINT "FOR COLOR REGISTER' 

25 PRINT 

30 INPUT CR 

35 PRINT 

40 PRINT "ENTER - 15" 

50 PRINT "FOR HUE" 

60 INPUT H 

100 REM ** THE BEGINNING 
110 GRAPHICS 19 
120 COLOR 1 

200 REM ** CHANGES COLORS 
220 SETCOLOR CR,H,6 
230 GOSUB 3010 



500 REM ** WAITS 
510 FOR P = l TO 1000 
520 NEXT P 
530 GOTO 10 



3000 REM ** DRAW HEXAGRAM 

3010 PLOT 10, 10 

3020 DRAWTO 15,5 

3030 DRAWTO 25,5 

3040 DRAWTO 30,10 

3050 DRAWTO 25,15 

3060 DRAWTO 15, 15 

3070 DRAWTO 10,10 

4090 RETURN 
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When you RUN this program, values of 1, 2, or 3 for color register will 
default to an orange figure with no color background, regardless of the 
value used for hue. A value of for color register will allow you to change 
the hue of the figure with the second variable you INPUT. The background 
screen remains gray. 

If you use a value of 4 in the color register parameter, changing the hue 
parameter will affect the color of the background screen, while the figure 
stays orange. 

Now change line 110 to: 

110 GRAPHICS 3 

and then experiment with changes in hue in each of the five color registers 

(0-4). 

Which value for hue allows you to change: 

• The hue of the figure? 

• The hue of the background screen? 

• The hue of the text window? 

Which values for color register will default to an orange figure with no 
changes in hue? 

To better understand these relationships, look up graphics mode 3 in 
Appendix D, and go down column 1 to COLOR 1. 

INPUT Color Luminance 

The third variable in the SETCOLOR command is the color luminance; this 
affects the amount of brightness in either the figure or the background, 
depending on the color register used. To explore the relationship between 
all three parameters of the SETCOLOR command, add these lines to the 
program: 

65 PRINT 

70 PRINT "ENTER EVEN NUMBER ( 0-14 ) " 

80 PRINT "FOR LUMINANCE" 

90 INPUT LU 

and change line 220 to: 

220 SETCOLOR CR,H,LU 
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Here's the complete listing: 



REM *** SETCOLOR PARAMETERS 

1 REM *** INPUT ALL 




10 PRINT 
20 PRINT 
30 INPUT CR 
35 PRINT 
40 PRINT 
50 PRINT 
60 INPUT H 
65 PRINT 
70 PRINT 
PRINT 



'ENTER 0-4" 

'FOR COLOR REGISTER' 



ENTER 0-15" 
FOR HUE" 



ENTER EVEN NUMBER (0-14) 
FOR LUMINANCE" 



90 INPUT LU 

100 REM ** THE BEGINNING 
110 GRAPHICS 19 
120 COLOR 1 

200 REM ** CHANGES COLORS 
220 SETCOLOR CR,H,LU 
230 GOSUB 3010 

500 REM ** WAITS 
510 FOR P = l TO 1000 
520 NEXT P 
530 GOTO 10 

3000 REM ** DRAW HEXAGRAM 

3010 PLOT 10, 10 

3020 DRAWTO 15,5 

3030DRAWTO 25,5 

3040 DRAWTO 30, 10 

3050 DRAWTO 25, 15 

3060 DRAWTO 15, 15 

3070 DRAWTO 10, 10 

4090 RETURN 
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RUN the program and try many combinations of the variables. Remember, 
values of 1, 2, or 3 for color register (the first variable you INPUT) will 
default to an orange figure and won't be affected by hue or color luminance. 
So INPUT or 4 for color register. Also be sure to explore the results of 
changing the value for COLOR in line 120. 

Be careful not to crash the program by trying to enter a variable while the 
figure is on the screen or by trying to enter an incorrect value for one of the 
parameters. These concepts will take some time to fully grasp. Careful 
study of Appendix D should be helpful. 



FOR-NEXT HUE 

The parameters of the SETCOLOR command can also be changed with a 
FOR-NEXT loop similar to the way in which you changed the parameters of 
the SOUND statement in Chapter 5. For example, let's use a FOR-NEXT 
loop to change the values for hue in the figure we've been using. We can 
rebuild the previous program by doing some deleting and changing. 

First, delete all lines up to line 110. 

Also delete lines 500 through 530. 

Now add lines: 

210 FOR H = TO 15 
and: 

230 NEXT H 

Also add: 

500 ** STARTS LOOP AGAIN 
510 GOTO 210 

And finally change line 220 to: 

220 SETCOLOR 0,H,6 
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It may be just as easy for you to type NEW and start over. However you 
accomplish it, make sure you have this listing; 

100 REM ** THE BEGINNING 
110 GRAPHICS 19 
120 COLOR 1 




REM ** CHANGES HUES 
210 FOR H = TO 15 
220 SETCOLOR CR.H.6 
230 GOSUB 3010 
290 NEXT H 

500 REM ** STARTS LOOP AGAIN 
510 GOTO 150 

3000 REM ** DRAW HEXAGRAM 

3010 PLOT 10, 10 

3020 DRAWTO 15,5 

3030 DRAWTO 25,5 

3040 DRAWTO 30, 10 

3050 DRAWTO 25, 15 

3060 DRAWTO 15, 15 

3070 DRAWTO 10, 10 

4090 RETURN 



Now RUN- the program and you should see the figure appear on the screen, 
continually changing colors. 

Each time through the loop in lines 210 through 290 the machine EN- 
TERS a value for hue in line 220 and then uses the subroutine to draw the 
figure. When all sixteen values for hue have been used, line 510 sends us 
back to start the loop again. 

Hue changes happen pretty fast this way, so if you want to see each hue a 
little more distinctly, you can add a pause each time the figure is drawn 
with these lines. 

Add these lines and RUN the program to pause at each hue. 

3080 FOR P = l TO 100 
3090 NEXT P 

We've put the pause inside the subroutine. It would have the same effect if 
you put it inside the FOR-NEXT loop for hue, for example, at lines 240 and 
250. Either way will result in a pause after each hue has been entered. If you 
put the pause outside of the loop, for example, at line 410, the machine will 
RUN through all sixteen hues without pausing and pause only at the last 
value for hue, that is 15. So if you want to see each hue distinctly, you must 
put the pause within the loop. 
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Here's a complete listing of the program with the pause in the subroutine: 

100 REM ** THE BEGINNING 
110 GRAPHICS 19 
120 COLOR 1 

200 REM ** CHANGES HUES 
210 FOR H = TO 15 
220 SETCOLOR CR,H,6 
230 GOSUB 3010 
290 NEXT H 

500 REM ** STARTS LOOP AGAIN 
510 GOTO 150 

3000 REM ** DRAW HEXAGRAM 
3010 PLOT 10,10 
3020 DRAWTO 15,5 
3030 DRAWTO 25,5 
3040 DRAWTO 30, 10 
3050 DRAWTO 25, 15 
3060 DRAWTO 15, 15 
3070 DRAWTO 10, 10 
Pauses each time / 3080 FOR P= 1 TO 100 



the figure is drawn ( 3090 NEXT P 

4090 RETURN 



Change Hue of Figure and Background 

You can also use a FOR-NEXT loop to change the color register, but since 
values of 1 through 3 for color register will default to orange, you'll get the 
most dramatic effect by using a STEP function to count just (3 and 4 in the 
color register loop. 

Add these lines to change color register with a FOR-NEXT loop: 

150 FOR CR = TO 4 STEP 4 



350 NEXT CR 

This will nest the FOR-NEXT loop for hue within the color register loop. 
Finally, change line 220 to: 

SETCOLOR CR,H,6 
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The complete listing is: 

REM **** DOUBLE LOOPS 

100 REM ** CHANGES COLOR REGISTER 

110 GRAPHICS 19 

120 COLOR 1 

150 FOR CR = TO 4 STEP 4 

200 REM ** CHANGES HUES 
210 FOR H = TO 15 
220 SETCOLOR CR , H , 6 
230 GOSUB 3010 
290 NEXT H 
350 NEXT CR 

500 REM ** STARTS LOOP AGAIN 
510 GOTO 150 

3000 REM ** DRAW HEXAGRAM 

3010 PLOT 10, 10 

3020 DRAWTO 15 , 5 

3030 DRAWTO 25,5 

3040 DRAWTO 30, 10 

3050 DRAWTO 25, 15 

3060 DRAWTO 15, 15 

3070 DRAWTO 10, 10 

3080 FOR P=l TO 100 

3090 NEXT P 

4090 RETURN 

RUN this program to see the figures and the background change hue. 

In the next section we're going to build on the "Changing Hues" program 
that appeared earlier. You can either retype the program or make the 
following changes and deletions. 

Delete lines 140 and 150. 
Delete line 350. 
Delete lines 3080 and 3090. 
Change line 220 to: 

220 SETCOLOR 0,H, 6 
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Make any other changes you need to come up with this listing: 

100 REM *** CHANGING HUES 
110 GRAPHICS 19 
120 COLOR 1 

200 REM ** CHANGES COLORS 
210 FOR H = TO 15 
220 SETCOLOR 0,H,6 
230 GOSUB 3010 
290 NEXT H 

500 REM ** STARTS LOOP AGAIN 
510 GOTO 210 

3000 REM ** DRAW HEXAGRAM 

3010 PLOT 10, 10 

3020 DRAWTO 15,5 

3030 DRAWTO 25,5 

3040 DRAWTO 30, 10 

3050 DRAWTO 25,15 

3060 DRAWTO 15,15 

3070 DRAWTO 10,10 

4090 RETURN 



MOVING THE FIGURE 

Suppose you were creating a game in which you wanted to use a figure like 
the one in the program we've been using as a star ship that could be moved 
around on the screen. Obviously you don't want to type in a whole routine 
every time the figure is to move. You can save yourself the trouble by 
entering variables for the intial plot point in line 3010 and then having the 
DRAWTO statements in lines 3020 change in relationship to these vari- 
ables. 

For example, change line 3010 to: 

3010 PLOT X,Y 

Now assume for a moment that X and Y are still 10 and 10. Looking at line 
3020 you can see that the values for column and row in the DRAWTO 
statement can be changed to X + 5 (10 + 5) for column and Y - 5 (10 - 5) for 
row. So line 3020 becomes: 

3020 DRAWTO X + 5, Y-5 
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In the same way, lines 3030 through 3070 can be changed to: 

3030 DRAWTO X + 5 , Y-5 
3040 DRAWTO X+20.Y 
3050 DRAWTO X+15.Y+5 
3060 DRAWTO X + 5, Y + 5 
3070 DRAWTO X,Y 
3080 GOSUB 5010 
4090 RETURN 

To provide room to move the figure around, let's change line 110 to: 

110 GRAPHICS 23 

The program isn't quite ready to RUN yet, We need to have a way to 
ENTER values for X and Y. Add the following lines to allow you to INPUT 
these values: 

10 PRINT "ENTER - 139 FOR ROW" 

20 INPUT X 

30 PRINT 

50 PRINT "ENTER 5-90 FOR ROW" 

60 INPUT Y 
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The complete listing should now be: 

REM *** MOVING STAR SHIP 



10 PRINT "ENTER - 139 FOR ROW" 

20 INPUT X 

30 PRINT 

50 PRINT "ENTER 5-9!? FOR ROW" 

60 INPUT Y 

100 REM ** SETUP FOR GRAPHICS 
110 GRAPHICS 23 
120 COLOR 1 

200 REM ** CHANGES HUES 
210 FOR H = TO 15 
220 SETCOLOR 0,H,12 
260 GOSUB 3010 
290 NEXT H 

500 REM ** STARTS LOOP AGAIN 
510 GOTO 10 




REM ** DRAW STAR SHIP 
3010 PLOT X,Y 
3020 DRAWTO X + 5, Y-5 
3030 DRAWTO X+15,Y-5 
3040 DRAWTO X + 20,Y 
3050 DRAWTO X+15,Y + 5 
3060 DRAWTO X + 5.Y + 5 
3070 DRAWTO X,Y 
4090 RETURN 



Notice that, although graphics mode 23 has columns from through 159, 
we've indicated in the PRINT statement in line 10 that you should not 
exceed a value of 139 for column. This is because in line 3040 of the 
subroutine to draw the figure, we will have a value of 139 + 20 = 159 if we 
INPUT 139 for column. Likewise, the minimum value for row must be 5 to 
allow for the Y - 5 in lines 3020 and 3030. And since lines 3050 and 3060 
add 5 to the value of Y, we make the maximum limit for row 90 instead of 
95. 

Now RUN the program and place the figure at different places on the 
screen by INPUTing values for X and Y. 



THE FINER POINTS OF GRAPHICS 123 



SOUND WITH FIGURE 

Let's add a subroutine that introduces some sound each time the figure 
appears. We'll set it up so that the lower the figure appears on the screen, 
the lower the sound. Since the higher row numbers correspond to lower 
screen positions and higher note values correspond to lower notes, we can 
accomplish this by making the note value a function of Y. While we're at it, 
let's have the value for hue (H) also affect the note value. This is done in line 
5020 of the following subroutine: 

5000 REM ** SOUND OF STAR SHIP 
5010 FOR CYCLE=1 TO 5 
5020 SOUND 0,Y/2+H,12, 10 
5030 NEXT CYCLE 
5050 RETURN 




We've used a value of 12 for the tone parameter here to get a different 
effect. 

Now add a GOSUB statement at line 3080 to call this routine. Finally, add 
these lines to briefly sustain the last note played and then turn off the sound 
before the figure disappears. 

3080 GOSUB 5010 

350 FOR P=l TO 100 

360 NEXT P 

370 REM ** TURN OFF VOICE 

380 SOUND 0,0,0,0 
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The complete listing should now be: 

REM *** MOVING STAR SHIP 

10 PRINT "ENTER - 139 FOR COLUMN" 

20 INPUT X 

30 PRINT 

50 PRINT "ENTER 5-90 FOR ROW" 

60 INPUT Y 

70 PRINT 

100 REM ** SETUP FOR GRAPHICS 
110 GRAPHICS 23 
120 COLOR 1 

200 REM ** CHANGES HUES 
210 FOR H = TO 15 
220 SETCOLOR 0,H, 12 
260 GOSUB 3010 
290 NEXT H 

350 FOR P=l TO 100 

360 NEXT P 

370 REM ** TURN OFF VOICE 

380 SOUND 0,0,0,0 

500 REM ** STARTS LOOP AGAIN 
510 GOTO 10 

3000 REM ** DRAW STAR SHIP 
3010 PLOT X,Y 
3020 DRAWTO X + 5.Y-5 
3030 DRAWTO X+15.Y-5 
3040 DRAWTO X+20.Y 
3050 DRAWTO X + 15.Y+5 
3060 DRAWTO X+5.Y+5 
3070 DRAWTO X,Y 
3080 GOSUB 5010 
4090 RETURN 

5000 REM ** SOUND OF STAR SHIP 

5010 N = Y + H 

5020 FOR CYCLE=1 TO 5 

5030 SOUND 0,N, 12. 10 

5040 NEXT CYCLE 

5050 RETURN 
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RUN the program to hear how the sound works with the different posi- 
tions of the figure. 

Each time through the hue loop in lines 210 through 290, the GOSUB 
statement at line 260 calls the subroutine to draw the figure. Line 5080 of 
that routine calls the sound routine (nested subroutines). Note gets a value 
of Y that you have entered, plus the value for H that the hue loop has 
reached. For example, if you've entered a value of 40 for Y, then N will be 
40 + = 40 the first time through the loop and 40 + 1 = 41 the next time, 
and so on up to 40 + 15 = 55. 

After each of the hues has been registered and each of the notes played, 
we return to lines 350 through 380, which very briefly sustain the note and 
then turn off the sound. And finally line 510 starts us over again. 



IDEAS FOR EXPLORATION 

In the next section we will continue to build upon this program, so we 
suggest that you save it if you have an ATARI 410 Program Record or 810 
Disk Drive. 

Before going on, try some variations of your own on the program. Here are 
a few suggestions: 

1. Write your own sound routine for the Star Ship. 

2. Try graphics mode 7 instead of 23. 

3. Try some different values for COLOR in line 120 and for the 
color register (the first parameter) of the SETCOLOR com- 
mand in line 130. 

For a challenge: 

Use FOR-NEXT loops instead of INPUT statements to move the figure 
around. HINT: For best results, these loops should begin before line 210 
and end after line 380. Don't forget to remove the INPUT statements if you 
try this experiment. 
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Make sure you have this listing before going on to the next section: 

REM *** MOVING STAR SHIP 

10 PRINT "ENTER - 139 FOR COLUMN" 

20 INPUT X 

30 PRINT 

50 PRINT "ENTER 5-90 FOR ROW" 

60 INPUT Y 

70 PRINT 

100 REM ** SETUP FOR GRAPHICS 
110 GRAPHICS 23 
120 COLOR 1 

200 REM ** CHANGES HUES 
210 FOR H = TO 15 
220 SETCOLOR 0,H,12 
260 GOSUB 3010 
290 NEXT H 

350 FOR P=l TO 100 

360 NEXT P 

370 REM ** TURN OFF VOICE 

380 SOUND 0,0,0,0 

500 REM ** STARTS LOOP AGAIN 
510 GOTO 10 

3000 REM ** DRAW STAR SHIP 
3010 PLOT X,Y 
3020 DRAWTO X+5.Y-5 
3030 DRAWTO X+ 15 , Y-5 
3040 DRAWTO X + 20.Y 
3050 DRAWTO X+15.Y + 5 
3060 DRAWTO X+5.Y+5 
3070 DRAWTO X,Y 
3080 GOSUB 5010 
4090 RETURN 

5000 REM ** SOUND OF STAR SHIP 

5010 N = Y + H 

5020 FOR CYCLE=1 TO 5 

5030 SOUND 0,N, 12, 10 

5040 NEXT CYCLE 

5050 RETURN 
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IF-THEN DECISIONS 

While you were experimenting with this program, you may have occa- 
sionally slipped and entered a value that was too small or too large for X or 
Y, thus getting an ERROR message and having to start again. 

A programming tool that can be used to catch these mistakes without 
crashing the program is the IF-THEN statement. Essentially, what this 
statement says is: 

IF certain conditions are met, THEN do such and such. 

or: 
IF certain conditions are not met, ignore the THEN part of the statement and 
go on to the next line. 

For example, suppose in the program we've been using to move the figure 
on the screen, we want the machine to reprint the instructions in line 10 if a 
value greater than 139 is entered. We can do this with a line like this: 

^-^ Symbol for "is 

40 IF X > 139 THEN 10 greater than" 

Add this line and RUN the program. Then try entering a value greater 
than 139 a few times to get the idea. Instead of giving you an ERROR 
message this time, the machine just prints: 

ENTER - 139 FOR COLUMN 

over again. This will happen as many times as you enter incorrect values. 
When the conditions of the IF part of the statement are not met — that is, 
when X is not greater than 139 — the THEN' part of the statement is ignored 
and the next line of the program is executed. Have a look at the line again 
with arrows indicating the different directions the program might take. 

The condition If X is greater than 

, y/ 139. it goes this 

,, v • , , 40 IF X > 139 » THEN 40 wa y 

If X is not greater ^ -. ' 1UJ " ™ 

than 139, it goes "-»-y I 

this way tf 



Now let's add a few more lines to account for incorrect values for Y being 
entered: ^" ~^__^ 

70 IF Y < 5 THEN 50 ~~~~~~ Less than 
80 If Y > 90 THEN 50 

Line 70 says, IF Y is less than 5. THEN execute line 50 again. 
Line 80 says, IF Y is greater than 90, THEN execute line 50 again. 
Here's a complete listing of the program including IF-THEN statements 
to reprint the instructions if an incorrect value for X or Y is entered: 
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REM *** MOVING STAR SHIP 




10 PRINT "ENTER - 139 FOR COLUMN" 
20 INPUT X 
30 PRINT 

40 IF X>139 THEN 10 
50 PRINT "ENTER 5 -90" 
60 INPUT Y 
70 IF Y<5 THEN 50 
IF Y>90 THEN 50 

100 REM ** SETUP FOR GRAPHICS 
11(2 GRAPHICS 23 
120 COLOR 1 



200 REM ** CHANGES HUES 
210 FORH = TO 15 
220 SETCOLOR 0,H,12 
260 GOSUB 3010 
290 NEXT H 

350 FOR P=l TO 100 
360 NEXT P 

370 REM ** TURN OFF VOICE 
380 SOUND 0,0,0,0 

500 REM ** STARTS LOOP AGAIN 
510 GOTO 10 

3000 REM ** DRAW STAR SHIP 
3010 PLOT X,Y 
3020 DRAWTO X + 5, Y-5 
3030 DRAWTO X+ 15 , Y-5 
3040 DRAWTO X + 20,Y 
3050 DRAWTO X + 15.Y+5 
3060 DRAWTO X + 5.Y + 5 
3070 DRAWTO X,Y 
3080 GOSUB 5010 
4090 RETURN 



5000 REM ** SOUND OF STAR SHIP 
5010 FOR CYCLE=1 TO 5 
5020 SOUND 0.Y + H, 12, 10 
5030 NEXT CYCLE 
5050 RETURN 
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Rather than reprint the instructions, we can default to 139 any time a 
value greater than 139 is entered for X by making line 40: 

40 IF X > 139 THEN X=139 

With these conditions, any time you ENTER a value greater than 139 for 
X, it will plot the starting point for the figure in column 139. In the same 
way, lines 80 and 90 can be changed to: 

70 IF Y < 5 THEN Y = 5 
80 IF Y > 90 THEN Y = 90 

Add these lines, RUN the program, and try some values greater than 139 
for column and less than 5 or greater than 90 for row. This time, when you 
ENTER an incorrect value for column or row the machine will still draw the 
figure. 

See if you can use this method to limit the area in which the figure is 
drawn to a specific area of the screen, for example, the left side or the 
bottom half. 

IF-THEN statements can be used to make a number of different kinds of 
comparisons. We've looked at comparisons based on whether one variable 
is greater than the other and comparisons based on whether one variable is 
less than the other. The following chart shows some other comparisons that 
can be made: 



SvmboJ 


Meaning 


< 


less than 


> 


greater than 


= 


equal to 


<> 


not equal to 


> = 


greater than or equal to 


< = 


less than or equal to 



We'll see more ways to use IF-THEN decisions in the next few chapters. 



HIGH-RESOLUTION GRAPHICS MODE 

The ATARI Computer has a high-resolution graphics mode that enables 
you to plot much smaller points and therefore draw much finer lines. This 
is graphics mode 8, with the text window, or 24, without the text window. 
Although it is possible to draw without it, you need the SETCOLOR 
command to introduce color in mode 8 or 24. That's why we've waited 
until you've learned about the SETCOLOR command before discussing the 
high-resolution mode. 
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The number of columns and rows available in graphics modes 8 and 24 
are: 

Columns Rows 

Graphics 8 (0-319) (0-159) 

Graphics 24 (0 - 319) (0 - 191) 

The "Moving Star Ship" program you've been working with so far will 
serve as a good starting place to explore high-resolution graphics in ATARI 
BASIC. Start by changing line 110 to: 

110 GRAPHICS 24 

The significant variable in the SETCOLOR command for this mode will 
be the color register. Values of 2 and 4 affect the color. Make the color 
register 4 in the SETCOLOR command in line 220: 

220 SETCOLOR 4,H, 12 

The PRINT statements and IF-THEN statements in the beginning of the 
program also need to be changed to allow for the larger number of columns 
and rows available in this graphics mode. Make lines 10 through 80: 

10 PRINT "ENTER - 299 FOR COLUMN" 

20 INPUT X 

30 PRINT 

40 IF X/ > 299 THEN 10 

50 PRINT "ENTER 5 - 186 FOR ROW" 

60 INPUT Y 

70 IF Y<5 THEN 50 

80 IF Y>186 THEN 50 

The complete program listing should now be: 
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REM *** MOVING STAR SHIP 

1 REM *** HIGH RESOLUTION GRAPHICS 

10 PRINT "ENTER - 299 FOR COLUMN" 

20 INPUT X 

30 PRINT 

40 IF X>299 THEN 10 

50 PRINT "ENTER 5 - 186 FOR ROW" 

60 INPUT Y 

70 IF Y<5 THEN 50 

80 IF Y>186 THEN 50 

100 REM ** SETUP FOR GRAPHICS 
110 GRAPHICS 24 
120 COLOR 1 

200 REM ** CHANGES HUES 
210 FOR H = TO 15 
220 SETCOLOR4.H, 12 
260 GOSUB 3010 
290 NEXT H 

350 FOR P=l TO 100 

360 NEXT P 

370 REM ** TURN OFF VOICE 
380 SOUND 0,0,0,0 

500 REM ** STARTS LOOP AGAIN 
510 GOTO 10 

3000 REM ** DRAW STAR SHIP 
3010 PLOT X,Y 
3020 DRAWTO X+5.Y-5 
3030 DRAWTO X+15.Y-5 
3040 DRAWTO X + 20.Y 
3050 DRAWTO X+15,Y + 5 
3060 DRAWTO X+5.Y+5 
3070 DRAWTO X , Y 
3080 GOSUB 5010 
4090 RETURN 

5000 REM ** SOUND OF STAR SHIP 
5010 FOR CYCLE = 1 TO 5 
5020 SOUND 0.Y+H, 12, 10 
5030 NEXT CYCLE 
5050 RETURN 
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RUN it and see what happens when you ENTER values for X and Y. 

Instead of the hue of the figure or the background screen changing, the 
border of the screen changes as the hue loop is executed. In graphics mode 
24, the color of the border of the screen is changed when color register is 4 
in the SETCOLOR command. 

Also, the figure is now smaller and drawn with much smaller lines. 

What happens when you change the color register to 2 in the SETCOLOR 
command in line 220? 

Here's a trick you may have already discovered in your explorations of 
the other graphics modes with text windows that has an interesting effect in 
graphics mode 8. 

Although the chart above states that you have fewer rows in which to plot 
and draw when using the text window, the machine will actually still draw 
in the rows at the bottom of the screen, but you won't see it because it is 
covered by the text window. Or to say it a little more logically, you won't 
get an ERROR message if you plot and draw in the text window area; it just 
won't show up on the screen. To see what we mean. RUN the "Moving Star 
Ship" program in graphics mode 8 and ENTER values of 250 for column 
and 160 for row. You'll get this on the screen: 



/ \ 



ENTER 0- 299 FOR COLUMN 
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In graphics mode 8, the text window isn't defined hy a different color as it 
is in graphics modes 3 through 7. but it's still there for text to be printed. It 
also provides an easy way to have the figure cut off at the bottom as it does 
above. Now INPUT 250 for column and 157 for row. This time you get: 



ENTER I 



299 FOR COLUMN 



( \ 



Finally, INPUT 250 for column and 154 for row and the entire figure 
shows up again: 



ENTER I 



299 FOR COLUMN 



CD 



Play around with a few more values for row near 154. You might find this 
useful in making a figure appear to "rise up out of" the text window area. 

Can you think of a way to do this using a FOR-NEXT loop to enter values 
for X and Y? HINT: The FOR statement for the Y should start at about 170 
and use the STEP-1 function. The loops for both X and Y should begin after 
line 120 and before line 130, and they should end somewhere after line 380. 
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In this chapter you have built the skeleton of one program and then made 
several variations in that program to explore different parameters of the 
SETCOLOR command and to learn a new graphics mode. 

You've gained quite a bit of experience in the art of programming by 
practicing the process of deleting lines, adding others, and moving routines 
from one place to another. As with anything new, this process may be 
difficult at first, but as you continue to do it, you'll get better at it. 

Self-Test 

1. Which parameter is affected by the number 8 in the following com- 
mand? 

SETCOLOR 2,8,10 

2. What value for CR (color register) will enable you to change the color 
of the background screen below? 

110 GRAPHICS 19 

120 COLOR 1 

130 SETCOLOR CR,8,6, 

3. What does the third parameter of the SETCOLOR command affect? 

4. What's wrong with this command? 

220 SETCOLOR 4,6,5 

5. The following program draws a square. How might you change it to let 
the user move the square to different places using INPUT statements? 

110 GRAPHICS 7 
120 COLOR 1 
130 SETCOLOR 1,6, 10 
210 PLOT 10,10 
220 DRAWTO 20, 10 
230 DRAWTO 20,20 
240 DRAWTO 10,20 
250 DRAWTO 10, 10 

6. What do you think will happen if the machine sees a value greater 
than 139 in the following line? 

40 IF X > 139 THEN PRINT "NUMBER TOO BIG" 
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7. What symbol do you think should go after the letter X in line 100 
below? 

100 IF X 2001 THEN 300 

300 PRINT "THE YEAR YOU HAVE CHOSEN IS IN THE FUTURE" 

8. What is the highest resolution mode in ATARI BASIC? 

Answers 

1. Hue 

2. 4 

3. The color luminance, which is the brightness of the color 

4. Color luminance should have even numbered values from through 
14. The SETCOLOR command shown here has an odd number for 
color luminance. 

5. Something like this: 

110 GRAPHICS 7 

120 COLOR 1 

130 SETCOLOR 1,6, 10 

150 INPUT X 

160 INPUT Y 

210 PLOT X,Y 

220DRAWTO X + 10, Y 

230DRAWTO X + 10, Y+10 

240DRAWTO X.Y + 10 

250DRAWTO X,Y 

260 GOTO 150 

In this program, the INPUT statements occur after line 130, which will 
leave the squares on the screen. Otherwise it would draw it so fast that you 
probably wouldn't see it, and then put the question mark back on the 
screen. 

6. It will print: 

NUMBER TOO BIG 

on the screen. 

7. The greater than symbol (>) 

8. With text window, 8 
Without text window, 24 
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Challenges 

1. In the "Moving Star Ship" program from this chapter, move the 
INPUT statements to somewhere after line 120 and before line 210 so 
that the figures can stay on the screen. Where does the GOTO state- 
ment at line 510 need to send you now? 

2. If you succeed with the first challenge, try making the square routine 
from Question 5 a subroutine and add some more INPUT statements 
so you can move the star ship and the square around on the screen. 



CHAPTER EIGHT 

Chance Music 
and Graphics 



In the preceding chapters, you've used a number of techniques to specify 
the value of variables in SOUND and GRAPHICS statements. 

You may have used a constant value for a particular parameter or entered 
different values with INPUT statements or FOR-NEXT loops. In each case, 
however, you have determined a specific value or set of values for a given 
parameter. 

In this chapter you will learn to have the computer generate random 
numbers that can be used in your sound and graphics programs, thus 
introducing an element of surprise essential to any creative work. 



RANDOM NUMBERS 

If you've ever been to a raffle where they put 100 tickets numbered from 1 to 
100 in a box and someone reaches in the box to pull out the ticket with the 
winning number, then you've witnessed the selection of a random number 
between 1 and 100. 

To generate a random number in ATARI BASIC, use the RND function. 
To see how it works, ENTER and RUN the following program: 

REM *** PRINT RANDOM NUMBERS 
10 PRINT RND(l) 
20 FOR P = l T0 200 
30 NEXT P 
40 GOTO 10 
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Pretty soon the screen looks something like this: 



3.2732238796 

3.1437530517 
3.8118743896 
3.3042620539 




The numbers you get on the screen won't be the same as the ones here, 
because they are random (i.e., they are different every time). 

Notice that each number has a zero followed by a decimal point and lots 

of other numbers. This is because it is choosing and printing random 

numbers between zero and one. 

Now change line 10 to: 

ATARI BASIC'S 

multiplication sign 



10 PRINT 10*RND(1, 



This time you'll get something like: 



8.569757631 
4.36538696 
7.41912841 
3.74877929 



9 

2 

3 

7 




CHANCE MUSIC AND GRAPHICS 139 



RANDOM INTEGERS 

For most experiments you'll want to do, you won't need numbers with all 
that information after the decimal point. You'll only need "whole num- 
bers," or integers like 8, 42, or 256. 
To have the computer select random integers change line 10 to: 

10 PRINT INT ( 10*RND(1) ) 

Now when you run it, you'll get something like: 




Notice the highest number you ever get is 9. That is because 
10 *RND(1) tells the computer to pick one of 10 random integers from 
to 9. 

If you want to pick from 1 to 10, change line 10 to: 

10 PRINT INT(10*RND(1)+1) 
You can also say: 

10 PRINT INT ( 100* ( 1)+1) 
for a random integer between 1 and 100. Or: 
10 PRINT INT ( 100*RND ( 1 ) + 101 ) 
This will generate a random integer between 100 and 200. 
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Suppose you want to generate random integers that are only intervals of 
10. Here's how you can do it: Outside of 

^-^^ parenthesis 
10 PRINT INT(10*RND(1)+1) * 10 



The multiplication by 10 must occur outside the parenthesis here. 

As you can see, the RND function can be used in various ways to generate 
different sets of random numbers or random integers. We suggest you 
explore this concept a bit more using the PRINT statement to get a thorough 
understanding of the things you can do with this function. 

For example: 

Generate random integers between 1 and 500. 
Generate random integers between 50 and 60. 
Generate random integers in multiples of 25 between and 250. 



RANDOM NOTES 

You can use random integers just as you would other variables. For exam- 
ple, you might say: 

REM *** RANDOM NOTES 

210 SOUND 0,INT(256*RND(1) ) , 10, 10 

220 FOR P=l TO 50 

230 NEXT P 

240 GOTO 210 

ENTER and RUN this program to hear a note randomly selected and 
played, then another note, and so on. 

The same thing can be accomplished like this: 

REM *** RANDOM NOTES 

40 REM *** EACH VOICE WILL GET A NOTE 

50 FOR V = TO 3 

100 REM ** PICKS VALUE FOR N 
110 N = INT(256*RND(1) ) 

200 REM ** PLAYS THE NOTE 
210 SOUND 0, N, 10, 10 
220 FOR P=l TO 50 
230 NEXT P 

300 REM ** PICKS ANOTHER NOTE 
310 GOTO 110 
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The advantage of this version is that now the value N can be used in other 
ways. For example, here's a program that continually enters different 
random note values in each of the four voices: 

REM *** RANDOM NOTES 

40 REM *** EACH VOICE WILL GET A NOTE 
50 FOR V=0 TO 3 

100 REM ** PICKS VALUE FOR N 
110 N=INT(256*RND(1) ) 

200 REM ** PLAYS THE NOTE 
210 SOUND V,N, 10, 10 
220 FOR P=l TO 50 
230 NEXT P 

240 REM ** ANOTHER VOICE ANOTHER NOTE 
250 NEXT V 
550 GOTO 50 

ENTER and RUN the program to hear what it sounds like before we 
describe it. 

The first time through the FOR-NEXT loop for voice in lines 50 through 
250, voice is given a random value for note. This voice continues to play 
that note until the remaining three voices have each been given a random 
note value of their own and then played. The second time through the loop, 
voice 1 is given a random note value, which it plays. 

When all four voices have been played, line 550 starts it over again and 
voice gets a new note. Each voice continues to play its note while the 
other three voices are being assigned note values. Thus any given voice gets 
a new note only every fourth time through the cycle. This is what creates 
the kind of ongoing but ever-changing, chord-like sound you hear. 



THE RND FUNCTION IN GRAPHICS 

Now let's add some random graphics to the program. First add these lines: 

10 GRAPHICS 23 
20 COLOR 1 



and: 



130 SETCOLOR 4,8, 10 
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We're putting the SETCOLOR command within the voice loop (lines 50 
through 250) so you will be able to do an experiment with it a little later. For 
the moment add these lines: 

150 REM *** LINE DESIGN 
160 X=INT(160*RND(1) ) 
170 Y=INT(96*RND(1) ) 
180 PLOT X,Y 
190DRAWTO 75,40 

The complete program listing should now be: 

REM *** RANDOM NOTES 
10 GRAPHICS 23 
20 COLOR 1 

40 REM *** EACH VOICE WILL GET A NOTE 
50 FOR V = TO 3 

100 REM ** PICKS VALUE FOR N 
110 N=INT(256*RND(1) ) 

130 SETCOLOR 4,8,10 

150 REM *** LINE DESIGN 
160 X=INT(160*RND(1) ) 
170 Y=INT(96*RND(1) ) 
180 PLOT X,Y 
190DRAWTO 75, 40 

200 REM ** PLAYS THE NOTE 
210 SOUND V,N,10,10 
220 FOR P=l TO 50 
230 NEXT P 

240 REM ** ANOTHER VOICE ANOTER NOTE 
250 NEXT V 
550 GOTO 50 

Rather than us trying to describe what happens, RUN the program to see 
for yourself. 

Lines 160 through 180 plot a point in a random column and row. Line 
190 then draws a line from that point to a fixed point near the center of the 
screen. If you let it RUN for a while, the pattern fills out quite a bit. 
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Some Ideas for Experimentation 

Make the value for hue in the SETCOLOR command in line 1 30 H instead 
of 8 and then at line 120 generate a random value for H. Remember hue has 
sixteen possible values. 

In line 220 change the number 50 to some variable like DUR for "dura- 
tion" of the note and then add a RND function at line 215 to vary the length 
of note played. 

Change the loudness parameter in the sound statement in line 210 to L 
and add a decay loop in lines 205 and 235. But in order to keep all four 
voices going, decay only from 15 to 3. 

After you've tried these changes on your own, have a look at how we've 
done it: 

REM *** RANDOM NOTES 
10 GRAPHICS 23 
20 COLOR 1 




40 REM *** EACH VOICE WILL GET A NOTE 
50 FOR V=0 TO 3 

100 REM ** PICKS VALUE FOR N 
110 N = INT(256*RND(1) ) 
■*■ 120 H = INT(16*RND(1)+1) 



130 SETCOLOR 4,H,1C 




150 REM *** LINE DESIGN 
160 X=INT(160*RND(1) ) 
170 Y=INT(96*RND(1) ) 
180 PLOT X,Y 
190 DRAWTO 75,40 

200 REM ** PLAYS THE NOTE 

205 FOR L=15 TO 3 STEP -3 

210 SOUND V,N, 10, L 

215 DUR = INT(10*RND( 1) ) 

220 FOR P = l TO DUR 

230 NEXT P 

235 NEXT L 

240 REM ** ANOTHER VOICE ANOTHER NOTE 
250 NEXT V 
550 GOTO 50 



In the next section we'll build a new program, but we suggest you have 
this one on your ATARI 410 Program Recorder or ATARI 810 Disk Drive 
system. 
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RANDOM ELEMENTS WITHIN FORM 

The use of random elements in an artistic program raises one of the most 
misunderstood concepts in the creative process. That is the concept of 
improvisation or free form. It is often thought that improvisation means "no 
form." On the contrary, a truly well-crafted improvisation is one that makes 
use of a deeper understanding of form without obviously manifesting 
structure. This is truly the essence of art. 

We won't get into the question of whether or not a computer can impro- 
vise, but the program below is an example of how you can use the RND 
function to create a piece with slight variations in form each time it runs. 

The program draws a mountain range that always consists of twelve 
mountains. The peaks of the mountains, however, are randomly placed, 
and the base points from which the sides are drawn are also randomly 
selected. To get started, ENTER and RUN this initial program: 

REM *** MOUNTAIN RANGE 

10 GRAPHICS 24 

20 COLOR 1 

30 SETCOLOR 2,8,4 

40 REM *** THE TWELVE HILLS 

50 FOR M0UNTAIN=1 TO 12 

100 REM *** TOP OF THE MOUNTAIN 

110 A=INT(320*RND(1) ) 

120 B=INT(70*RND(1)+10) 

200 REM *** TWELVE SIDES PER HILL 

210 FOR SIDE=1 TO 12 

250 REM *** SELECTS BASE POINT 

260 X=INT(320*RND(1) ) 

27!? Y=INT(40*RND( 1) +100) 

300 REM *** DRAWS FROM BASE TO TOP 

310 PLOT X,Y 

320 DRAWTO A,B 

499 REM 

510 NEXT SIDE 

900 REM *** DRAWS ANOTHER MOUNTAIN 
910 NEXT MOUNTAIN 
990 GOTO 990 

After setting up the initial graphics mode and colors in lines 10 through 
30, the FOR-NEXT loop for "Mountain" establishes a cycle in which twelve 
mountains are drawn. All other routines will be nested within this larger 
loop. 
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Lines 110 and 120 randomly select values for the columns and row (A for 
column and B for row) in which a given mountain peak is to be plotted. The 
mountain peak is actually determined a bit later by line 320. Line 110 
chooses from any of the 320 columns available, but line 120 limits the 
location of the mountain peaks to the upper part of the screen. The first part 
of the RND function in that line picks an integer from to 69, and then the 
second part of the expression adds 10 to give a value between 9 and 79 for 
the row. 

The FOR-NEXT loop in lines 210 through 510 randomly plots points 
from which twelve lines are drawn to the peak of each mountain. Again line 
260 allows these base points to occur in any column, but line 270 limits the 
row in which a base point is plotted to those from 39 through 139, an area 
towards the bottom of the screen. 

As the FOR-NEXT loop for "side" goes through its twelve cycles, twelve 
randomly selected base points are plotted at line 310. Line 320 draws a line 
from each of these points to the mountain's peak, selected in lines 110 and 
120. It is important that the mountain peak (point A, B) is selected before the 
beginning of the FOR-NEXT loop for the sides. This is necessary to have 
one point to which each of the sides is drawn (i.e., the peak point A,B). 

Finally, when this cycle is completed and one mountain with its twelve 
sides is drawn, line 910 goes back for the "next mountain" beginning at line 
50. This larger cycle also occurs twelve times to draw a total of twelve 
mountains with twelve sides. 

Run this program several more times to see how it draws a slightly 
different mountain range each lime. 

As you develop your programming skills and strive for more and more 
sophisticated programs, you must be aware of the time required for the 
machine to make certain calculations and perform certain functions. To get 
a sense of this, we will add a sequence of notes to the program after each 
mountain is drawn and then have you see what happens when you move 
this sequence to within the loop to draw the sides. Begin by making the 
additions to the program shown below: 
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REM *** MOUNTAIN RANGE 

10 GRAPHICS 24 

20 COLOR 1 

30 SETCOLOR 0, 10, 10 

40 REM *** THE TWELVE HILLS 
50 FOR MOUNTAINS TO 12 

100 REM *** TOP OF THE MOUNTAIN 
110 A=INT(320*RND(1) ) 
120 B=INT(70*RND(1)+10) 

200 REM *** TWELVE SIDES PER HILL 

210 FOR SIDE = 1 TO 12 

250 REM *** SELECTS BASE POINT 

260 X = INT(320*RND(1) ) 

270 Y=INT(40*RND(1)+100) 

300 REM *** DRAWS FROM BASE TO TOP 
310 PLOT X,Y 
320 DRAWTO A,B 

510 NEXT SIDE 

600 REM *** NOTE CYCLE 
610 FOR NOTE =1 TO 50 
620 N=INT(50*RND(1) ) 
630 FOR L=15 TO STEP -5 
640 SOUND 0,N,10,L 
650 NEXT L 
690 NEXT NOTE 

900 REM *** DRAWS ANOTHER MOUNTAIN 
910 NEXT MOUNTAIN 
990 GOTO 990 

Now when you run the program, you should hear a rapid sequence of 
notes played after each mountain is drawn. This sequence will be different 
each time. 

This routine randomly selects a note value between 1 and 5 at line 620 
and then plays the note with a decay in lines 630 through 650. The 
FOR-NEXT loop in lines 610 through 690 repeats this cycle a total of 50 
times. 

Run this program a few more times to fully absorb how it is functioning. 
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Ideas for Exploration 

Change line 620 to randomly select note values from 1 to 100. 

Have line 620 randomly select note values between 100 and 150. 

In line 110, limit the values for column that are randomly chosen to 
values between 100 and 200. 

Finally, remove lines 610 and 690 and move line 510 down to line 710. 
This will cause a single note to be played as each line is drawn — a signifi- 
cant change in the program. 

Most likely you have had some other ideas you'd like to explore with this 
program. Please try them and don't be afraid to make some mistakes. It's 
part of learning to program creatively. 

When you've finished your explorations, return to this listing for the 
program: 
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REM *** MOUTAIN RANGE 

10 GRAPHICS 24 

20 COLOR 1 

30 SETCOLOR 0, 10 , 10 

40 REM *** THE TWELVE HILLS 
50 FOR M0UNTAIN=1 TO 12 

100 REM *** TOP OF THE MOUNTAIN 
110 A=INT(320*RND(1) ) 
120 B=INT(70*RND(1)+10) 

200 REM *** TWELVE SIDES PER HILL 

210 FOR SIDE=1 TO 12 

250 REM *** SELECTS BASE POINT 

260 X=INT(320*RND(1) ) 

270 Y = INT(40*RND(1)+100) 

300 REM *** DRAWS FROM BASE TO TOP 
310 PLOT X,Y 
320 DRAWTO A.B 

510 NEXT SIDE 

600 REM *** NOTE CYCLE 
610 FOR NOTE=l TO 50 
620 N=INT(50*RND(1) ) 
630 FOR L=15 TO STEP -5 
640 SOUND 0,N, 10, L 
650 NEXT L 
690 NEXT NOTE 

900 REM *** DRAWS ANOTHER MOUNTAIN 
910 NEXT MOUNTAIN 
990 GOTO 990 



THE PICTURE FRAME 

We can take advantage of the fact that in graphics mode 24 the SETCOLOR 
command allows us to change the hue of the perimeter of the screen to 
make an "electric frame" for our picture in this program. This is done by 
using color register 4 in the SETCOLOR command, which allows changing 
the hue of the screen perimeter and then creating a FOR-NEXT loop for hue. 
This can be accomplished with the following program: 
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REM *** MOUNTAIN RANGE 
10 GRAPHICS 2.4 
20 COLOR 1 

30 SETCOLOR 0, 10, 10 

40 REM *** THE TWELVE HILLS 

50 FOR MOUNTAIN=l TO 12 

100 REM *** TOP OF THE MOUNTAIN 
110 A=INT(320*RND(1) ) 

120 B = INT(70*RND( 1)+10) 

200 REM *** TWELVE SIDES PER HILL 

210 FOR SIDE = 1 TO 12 

250 REM *** SELECTS BASE POINT 

260 X = INT(320*RND(1) ) 

270 Y=INT(40*RND( 1)+100) 

300 REM *** DRAWS FROM BASE TO TOP 

310 PLOT X,Y 

320 DRAWTO A,B 

400 REM *** MODERN PICTURE FRAME 
410 FOR H = 4 TO 9 
420 SETCOLOR 4.H.4 
490 NEXT H 

510 NEXT SIDE 

600 REM *** NOTE CYCLE 
610 FOR NOTE=l TO 50 
620 N = INT(50*RND(1) ) 
630 FOR L=15 TO STEP -5 
640 SOUND 0,N,10,L 
650 NEXT L 
690 NEXT NOTE 

900 REM *** DRAWS ANOTHER MOUNTAIN 
910 NEXT MOUNTAIN 
990 GOTO 990 

A value of 9 for hue as the loop is finished gives the perimeter of the 
screen the same hue as the rest of the background. This creates the effect of 
having the frame occur off and on during the program. 

RUN it a few times to fully appreciate the effect. 
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EXPLOSION SOUNDS 

Since the process of a mountain range evolving is really a very -stormy one 
with many volcanic eruptions and such, let's add some explosion sounds 
to the program. Make the changes in the program as follows: 

REM *** MOUNTAIN RANGE 

10 GRAPHICS 24 

20 COLOR 1 

30 SETCOLOR 0, 10, 10 

40 REM *** THE TWELVE HILLS 
50 FOR M0UNTAIN=1 TO 12 

100 REM *** TOP OF THE MOUNTAIN 
110 A=INT(320*RND(1) ) 
120 B=INT(70*RND(1)+10) 

200 REM *** TWELVE SIDES PER HILL 

210 FOR SIDE=1 TO 12 

250 REM *** SELECTS BASE POINT 

260 X = INT(320*RND(1) ) 

270 Y=INT(40*RND(1)+100) 

300 REM *** DRAWS FROM BASE TO TOP 
310 PLOT X,Y 
320 DRAWTO A,B, 

400 REM *** MODERN PICTURE FRAME 
410 FOR H = 4 TO 9 
420 SETCOLOR 4,H,4 
490 NEXT H 

510 NEXT SIDE 

600 REM *** NOTE CYCLE 
610 FOR N0TE=1 TO 50 
620 N=INT(50*RND(1) ) 
630 FOR L=15 TO STEP -5 
640 SOUND 0,N, 10, L 
650 NEXT L 
690 NEXT NOTE 

700 REM *** SOUND TRACK 
710 EXPL = INT(3*RND(1)+1) 
720 IF EXPL=1 THEN GOSUB 2010 
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900 REM *** DRAWS ANOTHER MOUNTAIN 
910 NEXT MOUNTAIN 
950 GOSUB 2010 
990 GOTO 990 

2000 REM *** EXPLOSION SOUND 

2010 N=INT(10*RND(1)+1)*10 

2020 FOR L=15 TO STEP -1 

2030 SOUND 0,N,0,L 

2040 SOUND 1,N+1,0,L 

2050 SOUND 2,N + 2,0,L 

2060 SOUND 3,N/2,0,L 

2070 FOR P = l TO 50 

2080 NEXT P 

2090 NEXT L 

3000 RETURN 

Now RUN the program. Occasionally it should stop after it has drawn a 
mountain and create an explosion-type sound. If you RUN the program a 
few times, you'll notice that this explosion occurs at different places in the 
sequences of mountains being drawn and that the explosion sounds a little 
different each time. 

Line 710 picks a random value between 1 and 3 for "EXPL." The IF-THEN 
statement in line 720 says if EXPL equals 1, then go down and execute the 
explosion subroutine at line 2010. If the random value chosen for EXPL is 2 
or 3, then it goes on to line 910 with no explosion before it draws the next 
mountain. 

Whenever the "explosion" subroutine is activated, line 2010 randomly 
selects a value between 1 and 10 and then multiplies this integer by 10 to 
give N a random value of 10, 20, 30, . . . up to 100. 

An explosion sound is actually a very complex wave form often called 
white noise in psycho-acoustics. This can be approximated as we have 
done here by using a value of for the tone parameter, and playing note 
values very close to each other with voices 0, 1, and 2 (lines 2030 through 
2050) while voice 3 plays a note one octave higher than voice (line 2060). 
The addition to the decay cycles (lines 2020 through 2090) with the slight 
pause at each loudness (lines 2070 and 2080) creates the loud percussive 
beginning with an explosion that decreases in volume. 

The purpose of choosing different values for line 2010 is to give each 
explosion a slightly varied effect. This would naturally occur if you were 
located in one place and explosions were happening around at different 
distances and coming from different directions. 
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Ideas for Exploration 

The formula we have used for creating the explosion sound in subroutine 
201 is not an absolute formula. You can make variations of your own to get 
just the sound you want for an explosion. Here are some ideas. 

Change line 2010 to randomly select some other values for N. Remember 
there are 256 values to choose from. 

Put INPUT statement before line 10 of the program and change the tone 
parameter to a variable so you can experiment with different values for tone 
in the explosion subroutine. Can you think of a way to INPUT different tone 
values in different SOUND statements here? 

Vary the length of the pause in lines 2070 and 2080. 

When you've finished your explorations, make sure you have the listing 
for the next section. 

REM *** MOUNTAIN RANGE 

10 GRAPHICS 24 

20 COLOR 1 

30 SETCOLOR 0, 10 , 10 

40 REM *** THE TWELVE HILLS 
50 FOR M0UNTAIN=1 TO 12 

100 REM *** TOP OF THE MOUNTAIN 

110 A=INT(320*RND(1) ) 
120 B=INT(70*RND(1)+10) 

200 REM *** TWELVE SIDES PER HILL 

210 FOR SIDE = 1 TO 12 

250 REM *** SELECTS BASE POINT 

260 X=INT(320*RND(1) ) 

270 Y = INT(40*RND(1)+100) 

300 REM *** DRAWS FROM BASE TO TOP 
310 PLOT X,Y 
320 DRAWTO A,B 

400 REM *** MODERN PICTURE FRAME 
410 FOR H = 4 TO 9 
420 SETCOLOR 4, H, 4 
490 NEXT H 

510 NEXT SIDE 
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600 REM *** NOTE CYCLE 
610 FOR NOTE=l TO 50 
620 N=INT(50*RND(1) ) 
630 FOR L=15 TO STEP -5 
640 SOUND 0,N, 10, L 
650 NEXT L 
690 NEXT NOTE 

700 REM *** SOUND TRACK 
710 EXPL = INT(3*RND(1)+1) 
720 IF EXPL = 1 THEN GOSUB 2010 

900 REM *** DRAWS ANOTHER MOUNTAIN 
910 NEXT MOUNTAIN 
950 GOSUB 2010 
990 GOTO 990 

2000 REM ** EXPLOSION SOUND 
2010 N=INT(10*RND(1)+1)*10 
2020 FOR L=15 TO STEP -1 



2030 SOUND 


N,0,L 




2040 SOUND 1 


.N+1,0 


,L 


2050 SOUND 2 


N+2,0 


,L 


2060 SOUND 3, 


N/2,0, 


L 


2070 FOR P = l 


TO 50 




2080 NEXT P 






2090 NEXT L 






3000 RETURN 







For a final addition to our program let's make use of the technique we 
learned in the last chapter to move the same figure from one place to 
another on the screen. We'll have a UFO fly across the bottom of the screen. 
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First delete line 990 and then add the following lines: 



The UFO: 




1000 REM *** UFO 

1010 FOR A = 10 TO 300 STEP 3 

1020 B = 170 

1030 COLOR 1 

1040 GOSUB 4010 

1050 COLOR 

1060 GOSUB 4010 

1070 SOUND , INT ( 25*RND ( 1 ) ) , 10 , 10 

1080 NEXT A 

1090 SOUND 0,0,0,0 

1095 GOTO 1095 



2000 REM ** EXPLOSION SOUND ' 

2010 N = INT(10*RND(1)+1)*10 

2020 FOR L=15 TO STEP -1 

2030 SOUND 0,N,0,L 

2040 SOUND 1,N+1,0,L 

2050 SOUND 2,N + 2,0,L 

2060 SOUND 3,N/2,0,L 

2070 FOR P=l TO 50 

2080 NEXT P 

2090 NEXT L 

3000 RETURN 



4000 REM *** DRAWS UFO 

4010 SETCOLOR 4, INT( 15*RND ( 1 ) ) , 10 

4020 PLOT A,B 

4030 DRAWTO A + 2.B-2 

4040 DRAWTO A + 6,B 

4050 DRAWTO A + 2.B + 2 

4060 DRAWTO A,B 

4090 RETURN 




RUN the program with these lines added, and you should see the figure 
move across the bottom of the screen with a high note played and the 
perimeter of the screen changing each time the figure appears. 

The FOR-NEXT loop in lines 1010 establishes plot points for column (A] 
at 10, 13, 16, etc., across the screen to column 300. The value for row (B) is 
constant at row 170. 

Lines 1030 and 1040 enter COLOR 1 and then execute the subroutine to 
draw the figure. Lines 1050 and 1060 erase the figure. After the figure has 
been drawn and erased, a random note is played. Then the cycle begins 
again. The value of COLOR 1 in line 1030 isn't really necessary the first 
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time through the cycle since it has been entered in line 20. However, once 
the machine has used COLOR at line 1050, it will stay in COLOR until it 
is given another value for color. So line 1030 becomes important after the 
first time through the cycle. 

Line 4010 of the "Draws UFO" subroutine is the one that causes the 
perimeter of the screen to change colors. We've used an RND function to 
choose one of the sixteen possible values for hue each time the subroutine 
is executed. 

Here's the complete listing of the program: 

REM *** MOUNTAIN RANGE 

10 GRAPHICS 24 

20 COLOR 1 

30 SETCOLOR 0,10, 10 

40 REM *** THE TWELVE HILLS 
50 FOR M0UNTAIN=1 TO 12 

100 REM *** TOP OF THE MOUNTAIN 
110 A=INT(320*RND( 1) ) 

120 B = INT(70*RND(1)+10) 

200 REM *** TWELVE SIDES PER HILL 

210 FOR SIDE=1 TO 12 

250 REM *** SELECTS BASE POINT 

260 X = INT(320*RND(1) ) 

270 Y = INT(40*RND(1)+100) 

300 REM *** DRAWS FROM BASE TO TOP 
310 PLOT X,Y 
320 DRAWTO A,B 

400 REM *** MODERN PICTURE FRAME 
410 FOR H = 4 TO 9 
420 SETCOLOR 4,H,4 
490 NEXT H 

510 NEXT SIDE 

600 REM *** NOTE CYCLE 
610 FOR N0TE=1 TO 50 
620 N = INT(50*RND( 1) ) 
630 FOR L = 15 TO STEP -5 
640 SOUND 0,N, 10, L 
650 NEXT L 
690 NEXT NOTE 
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700 REM *** SOUND TRACK 
710 EXPL=INT(3*RND(1)+1) 
720 IF EXPL=1 THEN GOSUB 2010 

900 REM *** DRAWS ANOTHER MOUNTAIN 
910 NEXT MOUNTAIN 
950 GOSUB 2010 

1000 REM *** UFO 

1010 FOR A = 10 TO 300 STEP 3 

1020 B = 170 

1030 COLOR 1 

1040 GOSUB 4010 

1050 COLOR 

1060 GOSUB 4010 

1070 SOUND 0, INT(25*RND( 1) ) , 10, 10 

1080 NEXT A 

1090 SOUND 0,0,0,0 

1095 GOTO 1095 

2000 REM ** EXPLOSION SOUND 
2010 N=INT(10*RND(1)+1)*10 
2020 FOR L=15 TO STEP -1 
2030 SOUND 0,N,0,L 
2040 SOUND 1,N + 1,0,L 
2050 SOUND 2,N + 2,0,L 
2060 SOUND 3,N/2,0,L 
2070 FOR P=l TO 50 
2080 NEXT P 
2090 NEXT L 
3000 RETURN 

4000 REM *** DRAWS UFO 

4010 SETCOLOR 4 , INT ( 15*RND ( 1 ) ) , 10 

4020 PLOT A,B 

4030 DRAWTO A+2.B-2 

4040 DRAWTO A + 6.B 

4050 DRAWTO A + 2.B + 2 

4060 DRAWTO A . B 

4090 RETURN 

In this chapter you have learned several ways to use RND functions to 
create varations in the sound and graphics of a program. Although the two 
programs in this chapter might be considered "fine art" (that is they have no 
particular purpose other than to be enjoyed), the techniques can just as 
easily be used in "functional" programs, such as educational aids or games. 
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We'll make use of these techniques and others in the coming chapters to 
create a pitch-matching game. 

Heraclitus, the ancient Greek philosopher, was believed to have once 
said: 

"You can't step in the same river twice." 

By this he meant that the river is always changing, and so are you. 
When we introduce the RND function into a program we might para- 
phrase Heraclitus and say: 

"You can't run the same program twice." 

The program is always changing, and so are you. 

Self-Test 

1. What range of numbers will the following program PRINT? 

10 PRINT 20*RND(1) 
20 GOTO 10 

2. What must be added to line 10 above to PRINT only random integers? 

3. What must line 10 of the same program be if you wish to PRINT 
random integers from 1 through 20? 

4. What must line 110 be in this program to randomly generate an even 
integer from to 14 for tone? 

100 REM *** RANDOM TONES 

11!? 

120 SOUND 0,20,1, 10 
130 FOR P=l TO 100 
140 NEXT P 
150 GOTO 110 

5. Graphics mode 19 has 40 columns (0 through 39] and 24 rows (0 
through 23). Add lines 110 and 120 to the following program to 
randomly choose plot points for column (A) and row (B): 

10 GRAPHICS 19 

20 COLOR 1 

30 SETCOLOR 0,8, 10 

130 PLOT A,B 

140 GOTO 10 
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6. Will the notes in this program be high or low notes? 

100 REM *** FLIGHT OF THE HONEY BEE 

110N = INT(25*RND(l)+225) 

120 SOUND 0, ¥1,10,10 

130 FOR P=l TO 5 

140 NEXT P 

150 GOTO 110 

7. How would you change line 710 of the final program in this chapter to 
make it equally likely that the explosion will or will not occur? 

8. Change line 1020 of the final program from this chapter so that it picks 
from all of the 256 possible note values. 

Answers 

1. From through 19 

2. Make line 10: 

10 PRINT INT(20*RND(1) ) 

3. Line 10 becomes: 

10 PRINT INT ( 20*RND ( 1 ) + 1 ) 

4. Line 110 should be: 

110 T = INT(8*RND(1) ) *2 

5. Lines 110 and 120 become: 

110 A = INT(39*RND(1) ) 
120 B = INT(23*RND(1) ) 

6. Low notes 

7. Make line 710: 

710 EXPL = INT ( 2*RND ( 1 ) + 1 ) 

8. Lines 1070 becomes: 

1020 SOUND , INT ( 256*RND ( 1 ) ) , 10 , 10 
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Challenges 

1. Change line 1020 so that the figure stays in the bottom area of the 
screen but moves up and down instead of going straight across. HINT: 
You need to randomly select values for rows between about 150 and 
180. 

2. Add some blinking stars to the picture. 



CHAPTER NINE 

String Variables 



As you've been exploring and learning about your ATARI 400 or 800 
Computer, you've made frequent use of INPUT statements to enter numeric 
variables. You've also learned to have the computer compare different 
numeric values and respond according to conditions you establish with 
IF-THEN statements. 

In this chapter we will look at ways to work with siring variables. This 
will allow you to have the computer respond to words and letters as 
variables also. As you will see a bit later in the chapter, this will be valuable 
when working with musical notes that are usually defined by letters like C 
orF#. 



STRINGS 

Although you may not have seen the term before, you have already worked 
with strings quite a bit in some of the programs you've been using. Often 
when you've used a PRINT statement, you have actually had the machine 
print a string. For example: 

110 PRINT "MUSIC IS MORE THAN JUST NOTES" 




The information between the quotation marks is the string. The quota- 
tion marks are not part of the string. 
Another example of a string would be: 

110 PRINT "C2" 




In this case the string includes both a letter and a number. 
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A string may include: 

Numerals (0,1.2 . . .) 

Letters (A,B,C, . . .) 

Special characters (—,+,=,#.,.] 

Combinations of these are also appropriate as strings. For example, the 
following are all strings: 

C# 

C MAJOR 7 

F# MINOR 

C2 

Since the quotation marks are not part of the string, you can't use them in 
the string. For example, if you try to say: 

ll!2f PRINT "THIS "PRINT STATEMENT" WON'T WORK" 

you get an ERROR message. So if you are typing in an elaborate string, be 
sure to avoid using the quotation marks as symbols. 

String Variables 

In ATARI BASIC the symbol for a string variable is a letter of the alphabet 
followed by a dollar sign ($). You might use something like: 

A$ 
Z$ 
P$ 

Before you use a string variable, you must tell the computer how long the 
string might be. That is, you must reserve a place in the computer's memory 
to put the string while it is waiting to be used. This is done with a 
DIMension statement. For example, the following DIM statement tells the 
computer to make room for a string of up to five characters in length. 




Dimension String Of five characters 
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To see the string A$ used as a variable, ENTER and RUN the following 
program: 



10 DIM A$(5) 
110 A$="MUSIC" 
120 PRINT A$ 
130 GOTO 120 

Pretty soon the screen looks like this: 



MUSIC 
MUSIC 
MUSIC 
MUSIC 
MUSIC 
MUSIC 
MUSIC 
MUSIC 
MUSIC 
MUSIC 
MUSIC 
MUSIC 
MUSIC 



Line 10 dimensions the string for up to five characters. That is, it reserves 
space for five characters in the computer's memory. 

Line 110 says the string A$ is MUSIC, and then lines 120 and 130 print 
the string over and over. 

A string may be dimensioned for more characters than it will contain, but 
it cannot be dimensioned for fewer characters. For example, 

10 DIM A$(10) 
would work in the program above, but if you entered: 
10 DIM A$(4) 
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it would print: 



MUSI 
MUSI 
MUSI 
MUSI 
MUSI 
MUSI 
MUSI 
MUSI 
MUSI 
MUSI 
MUSI 
MUSI 
MUSI 



Try making line 10: 

10 DIM A|(2) 

and RUN the program to see what that does. 

The computer will accept only as many characters for a string as you tell 
it to in the DIM statement. If you type in a longer string, it ignores any 
characters beyond the number for which it has been dimensioned. 

Spaces also count as characters when you dimension a string. The string 
NEW MUSIC is nine characters long (eight letters and one space). 

ENTER and RUN this program to print NEW MUSIC. 

10 DIM Bf (9) 

llj? B$="NEW MUSIC" 

12!? PRINT B$ 

130 GOTO 120 

Now change line 10 to: 

10 DIM BS(4) 

and RUN the program to see what happens. 

You may use more than one letter to define a string variable: 

AZ$ 
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or a letter and a number: 

AH 

G4$ 

but if you try to use the symbols at the top of the keyboard such as: 



A#Z$ 



you'll get an ERROR message. Don't get confused here between the symbol 
for the string variable and the actual information in the string. For example: 



[ 




10 DIM A#B$(10 
20 A#B$="MUSIC" 




will give you an ERROR. 
But this works: 



10 DIM A$ (10) 

20 A$= "MUSIC #4 
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ASK FOR MUSIC 

You can use strings as variables in many of the same ways that you've been 
using numerals as variables in other programs. The following program uses 
the string Z$ with an INPUT statement, an IF-THEN statement, and a 
PRINT statement: 






REM 



10 DIM 



ASK FOR MUSIC 



10) 



100 REM *** INSTRUCTIONS 

ll!2f PRINT 

12!? PRINT 

130 PRINT "TO HEAR THE MUSIC" 

140 PRINT "TYPE THE WORD 'MUSIC " 

150 PRINT "AND PRESS RETURN" 

200 REM *** ENTER STRING 
210 INPUT Z$ 

300 REM *** LOOKS AT STRING 
310 IF Z$="MUSIC" THEN 510 
320IFZ$<> "MUSIC" THEN 410 

400 REM *** NO MUSIC 

410 PRINT 

420 PRINT "SORRY I DON'T KNOW" 

430 PRINT "HOW TO PLAY" 

440 PRINT Z$ 

490 GOTO 110 

500 REM ** PLAYS THE MUSIC 

510 FOR CYCLE = 1 TO 50 

530 N=INT(25*RND(1)+1)*12 

540 SOUND 0,N, 10, 10 

550 FOR P = l TO 25 

560 NEXT P 

570 NEXT CYCLE 

580 SOUND 0,0,0,0 

590 GOTO 110 



ENTER and RUN this program. After the instructions appear on the 
screen, type either the word MUSIC or something else and press RETURN. 
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Whatever you type is stored as the string Z$ by the INPUT statement at 
line 210. If you type MUSIC, the IF-THEN statement at line 310 compares 
the string Z$ to "MUSIC" and then goes to line 510 and plays some music. 
If, however, you type something else, the INPUT statement at line 210 
stores that at Z$. Let's say you type DOG. It stores the string DOG at Z$. In 
line 310 it sees that DOG is not equal to MUSIC, so it doesn't play any 
music, but goes to line 320. In line 320 the proper conditions for the 
IF-THEN statement are met. That is, the string Z$, which is DOG, is not 
equal to MUSIC, so it goes to line 410. The PRINT statement at line 410 just 
prints a blank space to separate what follows from any previous text on the 
screen. It then executes the PRINT statements in line 420 and 430. Then it 
prints Z$, which in this case is DOG. The result on the screen is: 

SORRY I DON'T KNOW 

HOW TO PLAY 

DOG 

Line 490 goes back to line 110 where it prints two blank spaces and then 
the instructions again. 

Explorations 

1. Could Z$ be dimensioned for fewer characters in line 10 and have the 
program run the same? 

2. Add a line at 520 to have the computer PRINT Z$. 

Answers 

1. Yes, it could be as small as: 

10 DIM Z$(5) 

since the string "MUSIC" has only five characters. 

2. Line 520 should be: 

520 PRINT Z$ 
RUN the program like this and see what happens. 

TWO STRINGS IN ONE PROGRAM 

You can use more than one string in a program, but you must be sure to 
dimension each string you use. Here's an example of a program that has two 
strings, A$ and B$: 
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Dimensions each ; 
string 



REM *** OLD AND NEW 

1 REM *** MUZIO CLEMENTI 

2 REM *** HERB MOORE 
10 DIM A$(10) 

20 DIM B$( l^f) 



Defines the strings 



100 REM *** THE STRINGS 
110 A$="OLD MUSIC" 
120 B$="NEW MUSIC" 



200 REM *** PICKS OLD OR NEW 
210 X=INT(2*RND(1)+1) 
220 IF X=l THEN 510 
230 IF X = 2 THEN 610 



Prints "old music" 



Reads notes from ■ 
Clementi theme 



Restores notes 



500 REM *** OLD SONG-CLEMENTI 

510 PRINT 

515 PRINT 

520 PRINT A$ 

530 FOR CYCLE = 1 TO 16 

535 READ N 

540 SOUND 0,N, 10, 10 

545 FOR P=l TO 25 

550 NEXT P 

555 NEXT CYCLE 

560 DATA 162, 121,96,81 

565 DATA 91,96, 108, 121 

570 DATA 72,81,91,96 

575 DATA 108 , 121 , 128 , 144 

580 RESTORE 

590 GOTO 210 



Prints "new 
music" 



Randomly selects 
and plays notes for 
new music 



600 REM *** NEW SONG-HERB + RND 

610 PRINT 

615 PRINT 

620 PRINT B$ 

630 FOR CYCLE=1 TO 16 

640 N = INT(25*RND(1)+1)*12 

650 SOUND 0,N, 10, 10 

660 FOR P=l TO 15 

670 NEXT P 

680 NEXT CYCLE 

690 GOTO 210 
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ENTER and RUN this program and you hear the computer randomly 
choose between a theme by the Italian composer Muzio Clementi (1752— 
1832) and some modern sounds. When it plays Clementi, it prints OLD 
MUSIC on the screen: when it plays the modern theme, it prints NEW 
MUSIC on the screen. 



FANCY PRINTING 

Since we've been using graphics modes 3 through 8 so far, you may have 
wondered about graphics modes 1 and 2. These modes are text modes that 
allow you to print information on the screen with fancy, colorful letters. 
They will print information in the text window that is just like the text in 
other graphics modes, but if you want to use big, colorful letters in the 
graphics display area, you must use a device number. 

Many of the pieces of equipment associated with your ATARI Computer 
are called input/output devices (sometimes abbreviated I/O). As the name 
would imply, they let you INPUT information to the computer and/or 
OUTPUT information from the computer. The keyboard with which you 
enter information into the computer's memory is an input device. The 
ATARI 400 Cassette Recorder and the ATARI 800 Disk Drive system are 
input/output devices. The TV monitor is also an input/output device. 

It is not within the scope of this book to give a detailed description of the 
ATARI Computer's hardware, but it is valuable to know that each of these 
devices has a device number that must be used in certain operations. 

In order to print in the graphics display area in modes 1 or 2, the PRINT 
statement must take the following form: 

10 GR. 1 

20 COLOR 1 

110 PRINT #6; "NEW MUSIC" 

ENTER and RUN the following program to see what the fancy printing 
looks like in graphics mode 1: 

REM *** FANCY PRINTING 

10 GRAPHICS 1 

20 COLOR 1 

30 SETCOLOR 0,8,8 

100 REM *** TEXT IN GRAPHICS DISPLAY 
120 PRINT #6; "MUSIC" 



200 REM *** KEEPS IT ON SCREEN 



STRING VARIABLES 169 



You should see something like this appear on the screen: 



MUS I CZ 



READY 



Now change line 10 to: 

10 GR. 2 

and RUN the program. 

This time it should print letters of the same height, but twice as wide. 



I\-^1I I! 



READY 



I c 



If you think of each letter taking up one plot point, the word MUSIC 
appears in columns through 4 and in row 1, The number of columns and 
rows available in graphics modes 1 and 2 is: 



170 ATARI SOUND AND GRAPHICS 



Graphics Mode Columns Rows 




1 (0 through 19) (0 through 19) 

2 (0 through 19) (0 through 9) 

To print several lines in graphics modes 1 and 2, you must use the 
punctuation #6; in each PRINT statement. For example: 

REM *** FANCY PRINTING 

10 GRAPHICS 2 

20 COLOR 1 

30 SETC0L0R 0,8,8 

100 REM *** TEXT IN GRAPHICS DISPLAY 
120 PRINT #6; "NEW" 
140 PRINT #6; "MUSIC" 

200 REM *** KEEPS IT ON SCREEN 

ENTER and RUN this program. 

Which columns and rows are being used in the PRINT statements in lines 
120 and 130? 

The string "NEW" appears in columns through 2, row 0. 

The string "MUSIC" appears in columns through 4, row 1. 

You can also eliminate the text window in graphics modes 1 and 2 by 
adding 16 as you did with other modes. 

GRAPHICS 1 + 16 or GRAPHICS 17 

GRAPHICS 2 + 16 or GRAPHICS 18 

Try the program above in graphics modes 17 and 18. 
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POSITION YOUR PRINTING 

In the "Old and New" program from earlier in this chapter, we printed 
spaces between lines by adding PRINT statements with no strings, as in 
lines 510 and 515. ATARI BASIC also has a command that allows you to 
place text at different locations on the screen; it is the POSITION command. 
If you wish to center the strings "NEW" and "MUSIC" on the screen, you 
can use the POSITION command like this: 

REM *** FANCY PRINTING 




10 GRAPHICS 18 

20 COLOR 1 

30 SETCOLOR 0,8,8 

100 REM *** TEXT IN GRAPHICS DISPLAY 
110 POSITION 7,3 
120 PRINT #6; "NEW" 
130 POSITION 6,5 
140 PRINT #6; "MUSIC" 

200 REM *** KEEPS IT ON SCREEN 
210 GOTO 210 



RUN the program and the screen should look like this: 



NEW 
MU5IC 



Line 110 tells the computer to begin the string "NEW" at column 7 and 
row 3. 

Line 13(3 tells it to begin the string "MUSIC" at column 6 and row 5. 
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Explorations 

See if you can create this on the screen: 



MU5IC 

□LD AND NEW 

MU5IC 



BACK TO THE "OLD AND NEW" 

Now let's go back to the "Old and New" program we were using earlier in 
this chapter and instead of printing OLD MUSIC or NEW MUSIC in normal 
text as it plays the sounds like this: 



NEW MUSIC 
OLD MUSIC 
OLD MUSIC 
NEW MUSIC 
OLD MUSIC 
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we'll have it print either OLD MUSIC or NEW MUSIC in big letters in the 

center of the screen like this: 




D 
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First look at the version of the program that prints in normal text: 

REM *** OLD AND NEW 

1 REM *** MUZIO CLEMENTI 

2 REM *** HERB MOORE 
10 DIM A$(10) 

20 DIM B$(10) 

100 REM *** THE STRINGS 
110 A$="0LD MUSIC" 
120 B$="NEW MUSIC" 

200 REM *** PICKS OLD OR NEW 
210X = INT(2*RND(1)+1) 
220 IF X=l THEN 510 
230 IF X = 2 THEN 610 

500 REM *** OLD SONG-CLEMENTI 

510 PRINT 

515 PRINT 

520 PRINT A$ 

530 FOR CYCLE=1 TO 16 

535 READ N 

540 SOUND 0,N,10,10 

545 FOR P = l TO 25 

550 NEXT P 

555 NEXT CYCLE 

560 DATA 162,121,96,81 

565 DATA 91,96,108, 121 

570 DATA 72,81,91,96 

575 DATA 108 , 121 , 128 , 144 

580 RESTORE 

590 GOTO 210 

600 REM *** NEW SONG-HERB 4- RND 

610 PRINT 

615 PRINT 

620 PRINT B$ 

630 FOR CYCLE=1 TO 16 

640 N = INT(25*RND(1)+1)*12 

650 SOUND 0,N, 10. 10 

660 FOR P=l TO 15 

670 NEXT P 

680 NEXT CYCLE 

690 GOTO 210 
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Now add the following lines: 

30 GRAPHICS 18 

40 COLOR 1 

60 H=INT( 16*RND( 1 ) ) 

70 SETCOLOR 4,H,4 

Now replace line 510 and change line 520 as follows: 

510 POSITION 5,4 
520 PRINT #6;A$ 

and do the same with lines 610 and 620. 

610 POSITION 5,4 
620 PRINT #6:B$ 

Since we're using the POSITION command to place the text on the 
screen, we no longer need the PRINT statements at lines 515 and 615 which 
had been used originally to print blank lines in the text. Delete lines 515 
and 615. 

Finally we want to get rid of the previous text on the screen each time 
another passage of music is played. This can be clone by changing lines 590 
and 690 to: 

590 GOTO 30 
690 GOTO 30 

In this way, once the machine has finished playing either passage, "Old" 
or "New," it will go back to line 30 and enter graphics mode 18 again. Any 
time you enter a new graphics mode, what was previously on the screen 
will be erased. 
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Here's a complete listing of the program: 



Fancy print: no . 
text window 



Random hue for 
background screen 



REM *** OLD AND NEW 

1 REM *** MUZIO CLEMENTI 

2 REM *** HERB MOORE 
10 DIM A$(10) 

20 DIM B$(10) 

30 GRAPHICS 18 

40 COLOR 1 

60 H = INT(16*RND(1) ) 

70 SETCOLOR 4,H,4 



100 REM 
110 A$ = 
120 B$ = 



*** THE STRINGS 
"OLD MUSIC" 
"NEW MUSIC" 



200 REM *** PICKS OLD OR NEW 
210 X=INT(2*RND(1)+1) 
220 IF X=l THEN 510 
230 IF X = 2 THEN 610 



Places text 



Device #6; gives • 
fancy print 



Places text 



500 REM *** OLD SONG-CLEMENTI 

510 POSITION 5,4 

520 PRINT #6; AS 

530 FOR CYCLE=1 TO 16 

535 READ N 

540 SOUND 0,N, 10, 10 

545 FOR P = l TO 25 

550 NEXT P 

555 NEXT CYCLE 

560 DATA 162, 121,96,81 

565 DATA 91,96, 108, 121 

570 DATA 72,81,91,96 

575 DATA 108 , 121 , 128 , 144 

580 RESTORE 

590 GOTO 30 



600 REM *** NEW SONG-HERB + 

610 POSITION 5,4 

620 PRINT #6;B$ 

630 FOR CYCLE=1 TO 16 

640 N = INT(25*RND(1)+1)*12 

650 SOUND 0,N, 10, 10 

660 FOR P = l TO 15 

670 NEXT P 

680 NEXT CYCLE 

690 GOTO 30 



RND 
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Explorations 

Instead of printing OLD MUSIC or NEW MUSIC, have the computer print 
CLEMENTI or RANDOM NOTES each time it plays a passage. 

HINT: You need to change lines 110 and 120. 

The string RANDOM NOTES is a little longer than the other string in the 
program. Change the POSITION statement in line 610 to center this string. 



ENTER AND PLAY NOTES 

In the remainder of this chapter, we will begin to develop a program that 
plays a note from the C major scale each time you enter the letter name of 
that note. First it will just play the note; then we'll draw a music staff and 
the notes will appear on die staff. 

Begin by entering the following program: 

REM *** NOTE PRACTICE 

1 REM *** HERB MOORE 



Dimension string ■ 



10 DIM Af (5) 

20 GRAPHICS 7 

30 COLOR 1 

40 SETCOLOR 4, 11, 12 



Assigns letter 
typed to string AS 



100 REM *** ENTER NOTE 
IIS? PRINT "TYPE C,D, OR E" 
120 PRINT 

130 PRINT "AND PRESS RETURN' 
140 INPUT A$ 



Compares A$ tc 
the strings "C," - 
"D." and "E" 



REM *** COMPARES STRING 
210 IF A$ = "C" THEN 310 
220 IF A|="D" THEN 410 
230 IF A$="E" THEN 460 
290 GOTO 910 



If AS = "C" 



300 REM *** PLAYS "C" 
310 N = 121 
350 GOSUB 2010 
360 GOTO 110 



If AS = "D" 



400 REM *** PLAYS 
410 N = 108 
430 GOSUB 2010 
440 GOTO 110 



'D' 
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If A$ = "E" 



450 REM *** PLAYS 
460 N = 96 
480 GOSUB 2010 
490 GOTO 110 



Some other string - 



900 REM *** INVALID CHOICE 

910 PRINT "SORRY, I CAN'T PLAY" 

920 PRINT A$ 

930 FOR P=l TO 500 

940 NEXT P 

990 GOTO 110 



Prints and plays 
note 



2000 REM *** TELLS YOU THE NOTE 
2010 PRINT "THIS IS THE NOTE" 
2020 PRINT "YOU HAVE ENTERED" 
2030 PRINT A$ 

3000 REM *** PLAYS THE NOTE 
3010 FOR L = 15 TO STEP -1 
3020 SOUND 0,N, 10, L 
3030 FOR P = l TO 15 
3040 NEXT P 
3050 NEXT L 
3060 RETURN 



Now RUN the program and when the instructions appear in the text 
window, type C, D, or E and press RETURN. 



Instructions 



TYPE C, D OR E 
AND PRESS RETURN 
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Let's say you type the letter D. Here's what should happen. The text 
window changes to: 



THIS ISTHE NOTE 
YOU HAVE ENTERED 
□ ■ 



while the note D is played. Then the instructions appear again on the 
screen. 

The INPUT statement at line 140 gives the string A$ the value D. The 
IF-THEN statement at line 210 finds that A$ is not equal to C, so it goes onto 
line 220. At 220 the conditions of the IF-THEN statement are met. That is, 
A$ is equal to D. 

The program then branches to line 410 where N is given the value 108 
(the value for the note D). At line 420, it goes to the subroutine at line 2010 
where it prints the information telling you what note you've picked. The 
string D for A$ is used again here, in line 2030. Then in lines 3010 through 
3050, the note is played. 

The RETURN statement at line 3060 causes the program to pick up again 
at line 440. Since this is a GOTO statement, it will immediately go back to 
line 110 and type the instructions again. 

If you look at the blocks for the notes CD, and E at lines 300, 400, and 450 
respectively, you'll see that they are quite similar and work similarly in the 
program depending on which IF-THEN statement in lines 210 through 230 
is able to find the right match for A$. 

But what if you type some letter other than C,D, or E in response to the 
instructions when they appear in the text window? Suppose, for example, 
you type H. In this case none of the IF-THEN statements in lines 210 
through 230 will find a match and the program will go on to line 290. The 
GOTO statement at line 290 branches the program down to line 910 where 
it prints the text "SORRY, I CAN'T PLAY" along with whatever you've 
entered for A$. This appears in the text window. Since you've typed H, it 
will look like this: 
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?H 

SORRY I CAN'T PLAY 

H 



RUN this program a few more times to make sure everything is working 
as it should, and then we'll make some additions. 



Draw Staff Lines 

Our goal is to have the notes appear on the music staff as they play, so add 
this subroutine to draw the music staff: 



1000 REM *** DRAWS MUSIC STAFF 
1010 FOR R0W = 36 TO 60 STEP 6 
1020 PLOT 10, ROW 
1030 DRAWTO 140, ROW 
1040 NEXT ROW 
1050 RETURN 

Then add line 50: 

50 GOSUB 1010 
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RUN this program now, and you should get this on the screen. 



TYPE C, D,OR E 
AND PRESS RETURN 



Otherwise it will operate the same as it did before. We'll add some lines 
to plot the notes soon, but first let's look carefully at how the staff was 
drawn. 

Putting the GOSUB statement at line 50 causes the subroutine to draw the 
staff to be executed immediately after the graphics mode and color com- 
mand have been executed. 

We've used a FOR-NEXT loop for ROW. The first time through the loop, 
it plots a point at column 10, row 36 at line 1010. Then at line 1020 it draws 
a line to column 140, row 36. That's the top line of the staff. The second 
time through the loop, it draws a line from column 10 to column 140 at row 
42. This continues until all five staff lines are drawn. The RETURN state- 
ment at line 1050 causes the program to pick up at line 110. From there it 
operates the same as it did before this subroutine was added. 

Make sure you have this listing before going on. 
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REM *** NOTE PRACTICE 

1 REM *** HERB MOORE 

10 DIM A$(5) 
20 GRAPHICS 7 
30 COLOR 1 

40 SETCOLOR 4, 11,12 
We've added 50 GOSUB 1010 

100 REM ENTER NOTE 

110 PRINT "TYPE C,D, OR E" 

120 PRINT 

130 PRINT "AND PRESS RETURN" 

140 INPUT A$ 

200 REM *** COMPARES STRING 
210 IF A$="C" THEN 310 
220 IF A$="D" THEN 410 
230 IF A$="E" THEN 460 
290 GOTO 910 

300 REM *** PLAYS "C" 
310 N = 121 
350 GOSUB 2010 
360 GOTO 110 

400 REM *** PLAYS "D" 
410 N = 108 
430 GOSUB 2010 
440 GOTO 110 

450 REM *** PLAYS "E" 

460 N = 96 

480 GOSUB 2010 

900 REM *** INVALID CHOICE 

910 PRINT "SORRY, I CAN'T PLAY' 

920 PRINT A$ 

930 FOR P = l TO 500 

940 NEXT P 

990 GOTO 110 

1000 REM *** DRAWS MUSIC STAFF 
1010 FOR ROW = 36 TO 60 STEP 6 
We've added- -~ I 1020 PLOT 10 , ROW 

1030 DRAWTO 140, ROW 
1040 NEXT ROW 
1050 RETURN 
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2000 REM *** TELLS YOU THE NOTE 
2010 PRINT "THIS IS THE NOTE" 
2020 PRINT "YOU HAVE ENTERED" 
2030 PRINT A$ 

3000 REM *** PLAYS THE NOTE 
3010 FOR L=15 TO STEP -1 
3020 SOUND 0,N,10,L 
3030 FOR P=l TO 15 
3040 NEXT P 
3050 NEXT L 
3060 RETURN 

Put Notes on the Staff 

Rather than drawing each note on the staff separately, we can use the 
techniques we learned in Chapter 7 to draw a figure of the same size and 
shape at different places on the screen. Begin by adding the following lines 
to subroutine 2010: 

2040 REM *** DRAWS NOTE 
2050 PLOT COL, ROW 
2060 DRAWTO COL + 3 , ROW-3 
2070DRAWTO C0L + 6.R0W 
2080 DRAWTO COL + 3, ROW + 3 
2090 DRAWTO COL, ROW 

As you can see, we've made the values of both column and row variables. 
We want to plot in different rows depending upon the note played. This 
will determine on which staff line a note appears. But we want to plot the 
notes at equal distances from each other going from left to right across the 
staff. Let's start with column 15 and put notes at columns 15, 25, 35, . . . 125. 
This can be done with a FOR-NEXT loop for COL at lines 80 and 890. Add 
these lines: 

70 REM ** MOVES NOTES ACROSS STAFF 
80 FOR C0L=15 TO 125 STEP 10 



and: 



810 REM ** MOVES NOTES ACROSS STAFF 
820 NEXT COL 
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Since the value for ROW will vary depending on the note played, it 
should be entered in the main body of the program. The block for each note 
played will have a different value for ROW. The note C presents some 
additional considerations, so we'll look at D first. 

The note "D" should appear just below the bottom line of the staff. Row 
63 is the appropriate row to use, so add line 420: 

420 R0W = 63 

The appropriate ROW for E is row 60, which is right on the bottom line of 
the staff. Add line 470: 

470 ROW=60 

Now when the block for a particular note is executed, for example, line 
410 through 440 for the note D, we don't want the machine to go directly 
back to line 110. Instead we want it to finish the FOR-NEXT loop for COL at 
line 810. So change line 440 and 470 to: 

440 GOTO 810 

47!? GOTO 810 

We're still ignoring the block for C, but we'll get to it soon. 
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Here's what we've done so far: 



REM *** NOTE PRACTICE 

1 REM *** HERB MOORE 

10 DIM A$(5) 

20 GRAPHICS 7 

30 COLOR 1 

40 SETCOLOR 4, 11, 12 

50 GOSUB 1010 



Puts note at next 
position on staff 
going left to right 



Col value is used 
in 2050 through 
2090 



Puts note just 
below bottom 
staff line 



Next col 




Puts note on bottom 

staff line 



70 REM *** MOVES NOTE ACROSS STAFF 
80 FOR C0L=15 TO 125 STEP 10 

100 REM ENTER NOTE 

110 PRINT "TYPE C,D, OR E" 

120 PRINT 

130 PRINT "AND PRESS RETURN" 

140 INPUT AS 

200 REM *** COMPARES STRING 
210 IF A$="C" THEN 310 
220 IF A$="D" THEN 410 
230 IF A$="E" THEN 460 
290 GOTO 110 

300 REM *** PLAYS "C" 
310 N = 121 
350 GOSUB 2010 
360 GOTO 110 

400 REM *** PLAYS "D" 
410 N = 108 
420 R0W = 63 
430 GOSUB 2010 
440 GOTO 810 

450 REM *** PLAYS "E" 
460 N = 96 
,470ROW = 60 
480 GOSUB 2010 
490 GOTO 810 

800 REM *** MOVES NOTE ACROSS STAFF 
810 NEXT COL 
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900 REM *** INVALID CHOICE 

910 PRINT "SORRY, I CAN'T PLAY" 

920 PRINT A$ 

930 FOR P=l TO 500 

940 NEXT P 

990 GOTO 110 

1000 REM *** DRAWS MUSIC STAFF 
1010 FOR R0W = 36 TO 60 STEP 6 
1020 PLOT 10, ROW 
1030 DRAWTO 140, ROW 
1040 NEXT ROW 
1050 RETURN 

2000 REM *** TELLS YOU THE NOTE 
2010 PRINT "THIS IS THE NOTE" 
2020 PRINT "YOU HAVE ENTERED" 
2030 PRINT A$ 

2040 REM *** DRAWS NOTE 
2050 PLOT COL, ROW 
2060 DRAWTO C0L + 3.R0W-3 
2070 DRAWTO COL + 6,ROW 
2080 DRAWTO C0L + 3.R0W + 3 
2090 DRAWTO COL, ROW 

3000 REM *** PLAYS THE NOTE 
3010 FOR L=15 TO STEP -1 
3020 SOUND 0,N, 10, L 
3030 FOR P = l TO 15 
3040 NEXT P 
3050 NEXT L 
3060 RETURN 

RUN this program and ENTER either D or E when the instructions 
appear. For the sake of illustration, let's say you enter D, E, D, D the first few 
times through. You should get: 



Draws note 
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7T 



-O- 



^ <T 



TYPE C, D, OR E 
AND PRESS RETURN 



As you enter each new note, it appears at the appropriate line of the staff 
and to the right of the previous note. 

The correct position on the music staff of the note middle C is shown 
below: 



^r 



Partial' 
line 



Middle C 



It appears one line below the bottom line of the staff and is generally 
shown with a partial line as it has above. So when we plot the note middle 
C, we want to include this partial line. This can be done by adding the 
following lines: 

320 PLOT COL-1,66 
330 DRAWTO COL +7,66 

Line 360 should also be changed to: 

36!? GOTO 810 



as in the blocks for the notes D and E. 

Now if, for example, the note C is played as the first note before plotting 
the note, line 320 will plot a point at column 14 (that is 15-1), row 66, and 
draw a line at column 22 (15 + 7), row 66. This will draw the partial line for 
the note middle C. Lines 340 and 350 cause the note to be drawn just as it 
was drawn in the blocks for D and E. If several notes have been played 
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before middle C is played and the FOR-NEXT loop for COL is over to 
column 55, for example, here's what happens. Line 320 and 330 plot and 
draw this: 



COL - 1 ,66 



PLOT 54, 66 55 - 1 ,66 

DRAWTO 62, 66 55 + 7 , 66 

Make sure you've added lines 320, 330, and 360 as shown above and 
RUN the program. You'll now be able to ENTER C, D, or E and have the note 
appear on the correct staff line while it plays. 

One further addition can be made to improve this program. After you've 
entered twelve notes, the staff will be full and the FOR-NEXT loop for COL 
will be finished. It would be nice to have it erase the notes and start over. 
Easily done. First renumber lines 800 and 810 so they become: 

820 REM ** MOVES NOTES ACROSS STAFF 
830 NEXT COL 

Now add lines 800 and 810 



REM * * * 
810 IF C0L=125 THEN 20 

With these lines added, each time a note is played it checks the value of 
COL before going on to line 830 for the next column. When it gets to column 
125, line 810 goes back and enters the graphics mode again, thus erasing 
everything and starting over. 

You may have already noticed this, but if you try to enter another note 
while one is playing, the computer may get a little confused and go to the 
invalid choice subroutine in line 910. If this happens, just wait until the 
instruction appears in the text window and you can carry on. 
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Here's a complete listing of the program: 



REM *** NOTE PRACTICE 

1 REM *** HERB MOORE 

10 DIM A$(5) 

20 GRAPHICS 7 

30 COLOR 1 

40 SETCOLOR 4, 11, 12 

50 GOSUB 1010 

70 REM *** MOVES NOTES ACROSS STAFF 
80 FOR C0L=15 TO 125 STEP 10 

100 REM *** ENTER NOTE 

110 PRINT "TYPE C,D, OR E" 

120 PRINT 

130 PRINT "AND PRESS RETURN" 

140 INPUT A$ 

200 REM *** COMPARES STRING 
210 IF A$="C" THEN 310 
220 IF A$ = "D" THEN 410 
230 IF A$ = "E" THEN 460 
290 GOTO 910 

300 REM *** PLAYS "C" 

310 N=121 

320 PLOT COL-1,66 



Draws line seg- 
ment below staff 

for middle C ( 330 DRAWTO COL +7 , 66 

340 R0W = 66 

350 GOSUB 2010 

360 GOTO 810 

400 REM *** PLAYS "D" 
410 N=108 
420 R0W = 63 
430 GOSUB 2010 
440 GOTO 810 

450 REM *** PLAYS "E" 
460 N = 96 
470 ROW = 60 
480 GOSUB 2010 
490 GOTO 810 
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Checks column. If 
last column, start - 
over 



800 REM *** IS THE STAFF FULL YET? 
810 IF C0L = 125 THEN 20 

820 REM *** MOVES NOTES ACROSS STAFF 
830 NEXT COL 

900 REM *** INVALID CHOICE 

910 PRINT "SORRY, I CAN ' T PLAY" 

920 PRINT A$ 

930 FOR P=l TO 500 

940 NEXT P 



990 GOTO 110 

1000 REM *** DRAWS MUSIC STAFF 

1010 FOR R0W = 36 TO 60 STEP 6 

1020 PLOT 10, ROW 

1030 DRAWTO 140, ROW 

1040 NEXT ROW 

1050 RETURN 

2000 REM *** TELLS YOU THE NOTE 
2010 PRINT "THIS IS THE NOTE" 
2020 PRINT "YOU HAVE ENTERED" 
2030 PRINT k$ 

2039 REM 

2040 REM *** DRAWS NOTE 
2050 PLOT COL, ROW 

2060 DRAWTO COL + 3 , ROW-3 
2070 DRAWTO C0L + 6,R0W 
2080 DRAWTO COL + 3, ROW + 3 
2090 DRAWTO COL, ROW 

3000 REM *** PLAYS THE NOTE 
3010 FOR L=15 TO STEP -1 
3020 SOUND 0,N, 10, L 
3030 FOR P = l TO 15 
3040 NEXT P 
3050 NEXT L 
3060 RETURN 
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In this chapter you've learned some techniques for manipulating string 
variables and you've applied these techniques in beginning to build a 
program to put notes on a music staff. 

Your challenge for this chapter is to add the remaining notes to enable the 
user to enter any note of the C scale from middle C to one octave above 
middle C. You'll need to use the note chart in Chapter 1, and you'll also 
need to figure the correct row for each note. Start at line 51(3 for the note F 
and model the block for each note after the blocks for D and E. Here are the 
notes on the staff: 



-0- 



o 



-4- 



3Z 



31 



-0- 



3Z 



Middle C D E F G A B C -*— One octave above 

middle C 



Self-Test 

1. What is the minimum value that can be placed in the parentheses for 
this program to work? 

10DIMA$( ) 
20 A$="SOUND SCULPTURE" 
30 PRINT "SOUND SCULPTURE" 
40 GOTO 30 

2. What will this program do? 

10 DIM Z$(100) 
20 INPUT Z$ 
30 PRINT Z$ 
40 PRINT Z$ 

3. What will this program print? 

10 DIM H$(5) 

20 H$ = "SOUND SCULPTURE" 

30 PRINT H$ 
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4. What must be added to this program to have the text in lines 110 and 
120 appear in the graphics display area of the screen? 

10 GRAPHICS 2 

20 COLOR 1 

30 SETCOLOR 0,8,6 

100 REM *** 

110 PRINT "AUDITORY" 

120 PRINT "TICKLE" 

130 GOTO 130 

5. In the program above, what command might you add to position the 
text in the center of the screen? 

6. In the "Note Practice" program from this chapter, if you type H, will a 
note value be entered? 

7. If you enter D in the "Note Practice" program, which value for N will 
be used in the sound statement at line 3020? 

8. In the same program, if you type "SOUNDS GOOD," what will be 
printed at line 920? 

Answers 

1. 15 

2. It allows you to enter a string of up to 100 characters, and then it prints 
that string twice. 

3. It prints the word SOUND since the string H$ is only dimensioned for 
five characters. 

4. Lines 110 and 120 must become: 

110 PRINT #6; "AUDITORY" 
120 PRINT 6; "TICKLE" 

5. The POSITION command 

6. No, because lines 300 through 490 will be skipped. 

7. N will be 108 because the block at lines 410 through 440 will be 
executed when the conditions A$ = "D" are met in line 220. 

8. SOUND. The rest of the string will be dropped since A$ is only 
dimensioned for five characters. 

Challenges 

1. Add a title to this program using fancy letters in the graphics display. 

2. Complete the blocks for the rest of the notes in the C major scale as 
described at the end of the chapter. 



CHAPTER TEN 



Watch the Music Play 



In Chapter 9 we built a program that allowed the user to ENTER the letter 
name of a single note. This note was then played as its position on the 
music staff was displayed on the screen. In this chapter we will create a 
program that enables you to enter a sequence of notes that the computer 
will keep track of in its memory. After a specified number of notes have 
been entered, the computer will play them back as a melody. 



SUBSCRIPTED VARIABLES 

A particularly useful tool for creating musical passages is the subscripted 
variable, which takes the following form: 



Variable 



N(4)' 



Subscript 



This expression is said: "N sub 4." 

A subscripted variable consists of a letter (any letter from A to Z). 
followed by a subscript enclosed in parentheses. 

N(4) is a subscripted variable. 
N4 is not a subscripted variable. 

Suppose you want to store a number of different note values in the 
machine's memory and use any one of these values later in the program. 
This can be done with a set of subscripted variables called an array. You 
can think of each note value as being stored in a box that represents a 
particular location in the computer's memory. For example, note values for 
C, E, G, and B might be represented: 



N(0) 


121 


N(1) 


96 


N(2) 


81 


N(3) 


64 



193 
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You can have an array of more than four subscripted variables if you 
wish. For example, if you wanted to be able to store an array of eight 
possible note values, it would consist of eight memory locations in which 
to store note values: 



N(0) 


121 


NO) 


96 


N(2) 


81 


N(3) 


64 


N(4) 




N(5) 




N(6) 




N(7) 






Using the note chart from Chapter 1, add four more note values to this 
array to get an idea of the process by which numbers are assigned to 
subscripted variables. 

In Chapter 9 you learned that it is necessary to use a DIM statement to 
reserve space in the computer's memory for the strings that were assigned 
to string variables. In a similar fashion, you must dimension arrays for the 
maximum number of values to be entered as subscripted variables. 

For the array of four note values we used as our original example, you 
would use a DIM statement like this: 



Variable for which 
space is being 
reserved 




Maximum 
subscript to be 
permitted 



The value for the maximum subscript permitted can be greater in the 
above statement. For example: 

10 DIM N(10) 

But if you try to use: 

10 DIM N(2) 

you'll get an ERROR message when you try to use N(3). 
Before going on, see if you can answer these questions. 

1. For the preceding example in which we used an array of eight 
subscripted variables (numbered through 7), what is the 
smallest value you can use between the parentheses in your 
DIM statement? 



10 DIM( 
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2. What is the smallest number you can use in the parentheses to 
dimension this array: 



N(5) 




N(6) 




N(7) 




N(8) 





1. DIM(7) 

2. DIM(8) 

No matter how many subscripted variables are being used, you must 
dimension for the maximum subscript to be permitted. 

ENTER NOTE VALUES IN AN ARRAY 

Once you've dimensioned the subscript, you can use several different ways 
to store values for the subscripted variables in the array. Here's the long 
way of using subscripted variables to play the notes of the C major scale. 
Rather than spending a lot of time typing this, just study it carefully: 

REM *** THE LONG WAY 
10 DIM N(8) 



100 REM *** ASSIGNS NOTE VALUES 




101 REM *** TO SUBSCRIPTED VARIABLES 




110 N(l)=121 




120 N( 2) =108 


/This program 


130N(3)=96 


/ doesn't use 
/JNH0K J 


140 N(4)=91 


150N(5)=81 (^"^V 




160N(6)=72 N^' 




170 N(7)=64 




180 N(8)=60 





200 REM *** PLAYS NOTES 

201 REM *** "E" IS VALUE OF SUBSCRIPT 
210 FOR E=l TO 8 

220 SOUND 0,N(E) , 10, 10 
230 FOR P= 1 TO 200 : NEXT P 
240 NEXT E 



300 REM *** PLAY IT AGAIN 
310 GOTO 110 
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First, each of the note values in the scale is assigned to a subscripted 
variable in lines 110 through 180. Then as the FOR-NEXT loop in lines 210 
through 240 is executed: 

When E is 1, N(E) is N(l). Its value is 121. 
When E is 2, N(E) is N(2). Its value is 108. 
And so on . . . 

A more efficient way of assigning note values to subscripted variables is to 
use READ and DATA statements. ENTER and RUN this program and you 
will hear the notes of a C major scale played: 

10 DIM N(8) 

100 REM *** READS NOTE VALUES 

110 FOR E = l TO 8 

120 READ N 

150 REM *** PUTS NOTE VALUES IN ARRAY 
160 N(E)=N 
170 NEXT E 

200 REM *** PLAYS NOTES 
210 FOR E = l TO 8 
220 SOUND 0,N(E) ,10, 10 
230 FOR P=l TO 200: NEXT P 
240 NEXT E 

300 REM *** PLAYS IT AGAIN 
310 GOTO 210 

400 REM *** NOTE VALUES FOR C SCALE 
410 DATA 121,108,96,91 
420 DATA 81,72,64,60 

Lines 200 through 240 of this program are the same as in the previous 
program listing. Their operation has already been described. 

Lines 110 through 180, however, have been replaced with a loop that 
reads note values from the DATA statement in lines 410 and 420. 

The FOR-NEXT loop in lines 110 through 170 assigns values of 1 through 
8 to the subscript E in line 160. At the same time the READ statement in line 
120 gives N a note value from the DATA statements in lines 410 and 420. 
The first time through the loop E is given a value of 1 and N is given a value 
of 121. In line 160 we get: 

160 N(E)=N 
Says -160N(1)=121 
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The second time through the loop: 

160 N(E)=N 
160 N( 2) = 108 

The third time: 

160 N(E)=N 
160 N(3)=96 

In the same way that we've just demonstrated, show what values will be 
assigned to E and N in line 160 on the fifth and seventh time through the 
loop. 

The fifth time through the loop: 

160 N(E)=N 
160 N(5)=81 

The seventh time through the loop: 

160 N(E)=N 
160 N(7)=64 

If you wish to play only a part of the scale, you can make line 210 
something like: 

210 FOR E=l TO 5 

which would play the first five notes. Or to play notes from the middle of 
the scale, line 210 might be: 

210 FOR E = 3 TO 6 

Which note values do you think this version of line 210 will play? 

96, 91. 81, and 72 

You can use the STEP function to skip notes and go either up or down the 
scale. For example, make line 210: 

210 FOR E=l TO 7 STEP 2 
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and add lines: 

250 REM *** DESCENDING LINE 
260 FOR E = 8 TO 2 STEP -2 
270 SOUND 0,N(E) ,10,10 
280 FOR P=l TO 50: NEXT P 
290 NEXT E 

We've also changed die REM statement in line 200 to better describe what is 
happening with the new line 210: 

200 REM ** ASCENDING LINE 

The program listing should now be: 

10 DIM N(8) 

100 REM *** READS NOTE VALUES 

110 FOR E=l TO 8 

120 READ N 

150 REM *** PUTS NOTE VALUES IN ARRAY 
160 N(E)=N 
170 NEXT E 

200 REM *** ASCENDING LINE 
210 FOR E=l TO 7 STEP 2 
220 SOUND 0,N(E) ,10, 10 
230 FOR P=l TO 50: NEXT P 
240 NEXT E 

250 REM *** DESCENDING LINE 
260 FOR E = 8 TO 2 STEP -2 
270 SOUND 0,N(E) , 10, 10 
280 FOR P=l TO 50: NEXT P 
290 NEXT E 

300 REM *** PLAYS IT AGAIN 
310 GOTO 210 

400 REM *** NOTE VALUES FOR C SCALE 
410 DATA 121,108,96,91 
420 DATA 81,72,64,60 

Make sure you have the correct listing and RUN the program. 

As the loop in lines 210 through 240 is executed, values for the sub- 
scripted variable used in line 220 will be; N(l), N(3), N(5), and N(7). The 
notes played will then be: 
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NU) = 121 Middle C 
N{3) = 96 E 

N(5) = 81 C 

N(7) = 64 B 



Lines 260 through 290 will come back down the scale. Replace the two 
question marks with the correct note values: 



N(8) = 60 C above middle C 
N(6) = ? A 

N(4) = ? F 

N(2) = 108 D 



RANDOM CHOICE OF NOTES AND DURATION 

If you'd like to hear the computer make an attempt at something a little 
more musical than simply going up and down the scale, replace lines 200 
through 290 of the previous program with: 

Randomly chooses ^__^ 200 REM *** PLAYS NOTES 

asubscript ^^^ 210 E=INT(8*RND(1)+1) 

^^ 220 DUR = INT(4*RND(1) + ) *20 
Gives notes a ran- ^^^ 230 SOUND , N ( E ) , 10 , 10 
dom duration *- 240 FOR P= 1 TO DUR : NEXT P 

The complete listing will be: 

10 DIM N(8) 

100 REM *** READS NOTE VALUES 

110 FOR E=l TO 8 

120 READ N 

150 REM *** PUTS NOTE VALUES IN ARRAY 
160 N(E)=N 
170 NEXT E 

200 REM *** PLAYS NOTES 
210 E = INT(8*RND( 1)+1) 
220 DUR = INT ( 4*RND ( 1 ) + 1 ) *20 
230 SOUND 0,N(E) , 10, 10 
240 FOR P= 1 TO DUR : NEXT P 

300 REM *** PLAYS IT AGAIN 
310 GOTO 210 

400 REM *** NOTE VALUES FOR C SCALE 
410 DATA 121,108,96,91 
420 DATA 81,72,64,60 
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Line 210 randomly chooses a value for the subscript E. For the sake of 
illustration, let's say it picked the number 5. The subscripted variable in 
line 230 then becomes N(5). Since the READ and DATA statements have 
given N(5) a value of 81, note value 81 will be played in the sound 
statement. 

Line 220 picks a random number from 1 to 4 and then multiplies that 
number by 20 to give DUR possible values of 20, 40, 60, or 80. Using the 
variable DUR in the pause loop in line 240 results in one of these values for 
the duration of the note. Keep this program because we'll add to it in a 
moment. 



A LITTLE MUSIC THEORY 

Any time you go from one note to another in a musical scale, you are 
playing an interval. For example, from D to E is an interval. Each interval 
has a name derived from how far you move within the scale. You name an 
interval by counting how many notes you jump up or down the scale. 
Include the note you start with and the note you finish with. For example: 







C M 


ajc 


ir Scale 






c, 


D, e, 


F, 


C, A, B, 


C 




jump Fi 


om 






Interval Name 


going up 


D to E 




second 


going up 


E toG 








third 


going up 


F to G 








second 


going down 


G to D 








fourth 


going clown 


B to F 








fourth 


going up 


D to A 








fifth 


going clown 


G to E 








third 



The interval from any note to the note with the same name going either 
up or down is an octave of that note. From middle C to the next highest C is 
an octave. If you start with D and go up or down to the next D, then you are 
playing the octave of D. 

Fill in the names of the following intervals: 

Interval Name 





lump From 


going up 


C to G 


going down 


A to F 


going up 


C to B 


going clown 


B to D 


fifth 




third 




seventh 




sixth 
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We won't go into an elaborate discussion of music theory, but suffice it to 
say that the real building blocks for conventional harmony in our culture 
are thirds. 

Now, looking again at the program we've been using, we can make a few 
changes to play in thirds. 

First add: 



250 SOUND l,N(E+2) , 10, 10 
260 FOR P= 1 TO DUR : NEXT P 
270 SOUND 2,N(E+2) , 10, 10 
280 FOR P = l TO DUR: NEXT P 

Then change line 210 to: 

210 E = INT(6*RND(1) + 1) 

This listing should now be: 

REM *** ENDLESS SONG 

1 REM *** BY HERB MOORE 

2 REM *** AND THE RANDOM NOTES 

10 DIM N(10) 

100 REM *** READS NOTE VALUES 

110 FOR E=l TO 8 

120 READ N 

150 REM *** PUTS NOTE VALUES IN ARRAY 
160 N(E)=N 
170 NEXT E 
180 RESTORE 

200 REM *** PLAYS NOTES 
210 E=INT(6*RND(1)+1) 
220 DUR = INT(4*RND(1)+1)*20 
230 SOUND 0,N(E) , 10, 10 
240 FOR P = l TO DUR: NEXT P 
250 SOUND l,N(E + 2) , 10, 10 
260 FOR P=l TO DUR: NEXT P 
270 SOUND 2,N(E + 2) , 10, 10 
280 FOR P = l TO DUR: NEXT P 

300 REM *** PLAYS IT AGAIN 
310 GOTO 210 

400 REM *** NOTE VALUES FOR C SCALE 
410 DATA 121, 108,96,91 
420 DATA 81,72,64,60 
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RUN the program to hear the computer's idea of music for around the 
campfire. 

Line 210 picks a subscript from 1 to 6 that is used in line 230. It was 
necessary to reduce the choices for E to 1 through 6 since in lines 250 and 
270 we are using subscripts of E -I- 2. 

If the subscript 4 is chosen at line 210 and then at lines 250 and 270, note 
value 72 (A, which is a third above F) is played. 

If it picks 2 for the subscript E, you'll hear note values 108 and 91; that's 
the third D and F. Lines 260 and 280 give each note a random duration. 

What note values are played in line 250 if the subscript E is: 



Subscript E 


Note Value 




4 


/ 




6 
3 






5 


? 




72 






00 






81 






64 







If you want someone who uses the program to be able to specify the note 
sequence and the duration of the notes, you can use an INPUT statement. 
ENTER and RUN the following program to see an example of how an 
INPUT statement can be used to assign values to subscripted variables: 

10 DIM N(10) 

100 REM *** ENTER NOTES IN ARRAY 
110 FOR E=l TO 8 
120 PRINT "ENTER NOTE VALUE" 
130 INPUT N 

170 N(E)=N 
190 NEXT E 

200 REM *** PLAYS NOTES FROM ARRAY 

210 FOR E=l TO 8 

220 DUR=INT(4*RND(1)+1)*20 

230 SOUND 0,N(E) , 10, 10 

240 FOR P=l TO DUR:NEXT P 

250 NEXT E 

300 REM *** PLAY NOTES AGAIN 
310 GOTO 210 
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Each time through the loop in lines 110 through 190 these instructions 
will appear on the screen: 

ENTER NOTE VALUE 
? 

The first time through the loop, the note value that is entered will be 
assigned to N(l). For example, suppose you enter 108. Here's what happens 
at line 170: 

170 N(l)=108 

Let's say the next time the instruction appears you type 91. This time 
line 170 becomes: 

170 N(2)=91 

This will happen eight times before the melody is played, so, if you 
haven't done it already, add six more note values of your own choice. 

After you've entered a total of eight note values, the program continues at 
line 210, which begins a loop to play the eight notes. Line 220 establishes a 
randomly chosen duration for each note. 

RUN this program again and ENTER a sequence of notes using several 
thirds. For example: 



c 


E 


G 


F 


A 


C 


G 


B 


21 


96 


81 


91 


72 


60 


81 


64 



3rd 3rd 2nd 3rd 3rd 4th 3rd 



Explorations 

Make up some sequences of mostly thirds for yourself. 
Try a sequence of mostly fifths. 
Try one of mostly fourths. 
Mix thirds, fourths, and fifths. 

Adding More Notes 

You don't have to confine yourself to the eight notes we've shown. The note 
chart in Chapter 1 shows note values for three full octaves of the key of C, so 
help yourself. 
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If you want to be able to enter more notes, you can change lines 110 and 
210 something like this: 



110 FOR E=l TO 16 
210 FOR E=l TO 16 




But you'll have to change the DIM statement in line 10 to: 

10 DIM N(16) 

In the program as it exists now, you are able to determine the note values, 
but the computer selects the duration for you. 

You can dimension another subscripted variable for the note duration 
and assign values to it in the same loop as N(E). Let's call this subscripted 
variable DUR(E). 

Make sure you have this listing for the program to play notes: 

10 DIM N(10) 

100 REM *** ENTER NOTES IN ARRAY 
110 FOR E=l TO 8 
120 PRINT "ENTER NOTE VALUE" 
130 INPUT N 

170 N(E)=N 
190 NEXT E 

200 REM *** PLAYS NOTES FROM ARRAY 

210 FOR E-l TO 8 

220 DUR=INT(4*RND(1)+1)*20 

230 SOUND 0,N(E) , 10, 10 

240 FOR P=l TO DUR:NEXT P 

250 NEXT E 

300 REM *** PLAY NOTES AGAIN 
310 GOTO 210 

Now add: 



20 DIM DUR(10) 

140 PRINT "ENTER DURATION' 

150 INPUT DUR 

180 DUR(E)=DUR 

And remove line 220. 
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We've added a REM statement for clarification at line 160. 

160 REM *** SUBSCRIPTED VARIABLES 

The complete listing should now be: 

10 DIM N(10) 
20 DIM DUR(lJZf) 

100 REM *** ENTER NOTES IN ARRAY 

110 FOR E=l TO 8 

120 PRINT "ENTER NOTE VALUE" 

130 INPUT N 

140 PRINT "ENTER DURATION" 

150 INPUT DUR 

160 REM *** SUBSCRIPTED VARIABLES 

170 N(E)=N 

180 DUR(E)=DUR 

190 NEXT E 

200 REM *** PLAYS NOTES FROM ARRAY 

210 FOR E=l TO 8 

230 SOUND 0,N(E) , 10, 10 

240 FOR P= 1 TO DUR ( E ) : NEXT P 

250 NEXT E 

300 REM *** PLAY NOTES AGAIN 
310 GOTO 210 

Now when you run the program, you'll have the opportunity to enter a 
note value and a duration for each note. For example, suppose the first time 
through the loop you ENTER 96 for the note value when the instruction: 

ENTER NOTE VALUE 

appears on the screen. 
Then when you see: 

ENTER DURATION 

you ENTER the value 100. 
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At line 170, a value of 96 is assigned to N(l), and at line 180 a value of 100 
is assigned to DUR(l). 

170 N(E)=DUR 
becomes: 

170 N(l)=96 
and: 

180DUR(E)=DUR 
becomes: 

180 DUR(1)=100 

Suppose the next time through the loop you enter 60 for the note value 
and 50 for the duration. What will happen at line 170 and 180? 

170 N(E)=N 
becomes: 

170 ? 
and: 

180 DUR(E)=DUR 
becomes: 

180 ? 

170 N(2)=60 
180 DUR (2) =50 

We'll leave it to you to compose melodies you like with this program. 
Remember you can increase the maximum value of the subscript in the DIM 
statement in lines 10 and 20 and then make the 8 in lines 110 and 120 a 
larger number if you want to play more notes. 
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USING STRING VARIABLES WITH AN ARRAY 

You've learned how to assign note values to subscripted variables in an 
array and have the computer play the notes back for you either randomly or 
in the order that you ENTER them. But rather than having to look up the 
note values in the chart each time, it would be convenient to be able to 
ENTER the letter name of a note. 

The following program lets you type a C, D, or E and assigns the note 
value for that letter to a subscripted variable: 

10 DIM N(8) 
20 DIM A$(5) 

100 REM *** ENTERS NOTES IN ARRAY 
110 FOR Z=l TO 8 
120 INPUT A$ 

200 REM *** FROM A LETTER TO A NUMBER 
210 IF A$="C" THEN N = 121 
220 IF A$="D" THEN N = 108 
230 IF A$="E" THEN N = 96 

300 REM *** SUBSCRIPTED VARIABLE 
310 N(Z)=N 

350 REM *** NEXT SUBSCRIPT 
360 NEXT Z 

400 REM *** PLAYS THE NOTES 
410 FOR Z=l TO 8 
430 SOUND 0,N(Z) , 10, 10 
440 FOR P= 1 TO 100 : NEXT P 
450 NEXT Z 

500 REM *** PLAY IT AGAIN 
510 GOTO 410 

ENTER and RUN this program and type C, D, or E each time the question 
mark and the cursor appear on the screen. 




After you ENTER eight notes, the computer will play them back for you. 
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Line 10 dimensions a variable with a maximum subscript of 8. Line 20 
dimensions a string variable. Lines 110 through 360 form a loop similar to 
the ones we've been using. This loop assigns values to the subscript E in 
line 310. 

Suppose you type the letter D the first time through the loop. At line 120 
the string variable A$ becomes "D." As the computer goes through the 
IF-THEN statements in lines 210 through 230, it finds A$ = "D" in line 220. 
It then assigns N a value of 108. In line 310 we get: 

310 N(Z)=N 

becomes: 

310 N(l)=108 

What will happen if you type C the second time through the loop? 
Line 310 becomes: 

310 N(2)=121 

Using the note chart from Chapter 1, add IF-THEN statements at line 240 
through 280 that will allow you to ENTER the notes F, G, A, B, and the 
octave C 1 when the program is over. 
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The program listing will look like this: 



10 DIM N(8) 
20 DIM A$(5) 

100 REM *** ENTERS NOTES IN ARRAY 
110 FOR Z=l TO 8 
12!? INPUT A% 




200 REM *** FROM A LETTER 


210 IF A$ = 


"C" THEN N= 


= 121 


220 IF A$ = 


"D" THEN N = 


= 108 


230 IF A$ = 


"E" THEN N = 


= 96 


240 IF A$ = 


"F" THEN N= 


= 91 


250 IF A$ = 


"G" THEN N= 


= 81 


260 IF A$ = 


"A" THEN N= 


= 72 


270 IF A$ = 


"B" THEN N = 


= 64 


280 IF A$ = 


"CI" THEN K 


[ = 60 



300 REM *** SUBSCRIPTED VARIABLE 
310 N(Z)=N 

350 REM *** NEXT SUBSCRIPT 
360 NEXT Z 

400 REM *** PLAYS THE NOTES 
410 FOR Z=l TO 8 
430 SOUND 0,N(Z) , 10, 10 
440 FOR P=l TO 100: NEXT P 
450 NEXT Z 

500 REM *** PLAY IT AGAIN 
510 GOTO 410 



Now RUN the program and make up some note sequences from all eight 
notes. 
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MAKE YOUR OWN MELODY 

In Chapter 9 you learned how to have each note play and appear on the 
music staff immediately after it was entered. The following program uses 
many of the same concepts. But this time, as the letter for each note is 
typed, the note value for that letter is assigned to a subscripted variable and 
stored in an array. You are also able to determine the duration of each note. 
After ten notes, each with a specific duration, have been entered, the entire 
melody is played and shown on the staff as it plays. This will repeat until 
you stop the run. Then you can ENTER another melody. 

This may seem like a fair amount of typing, but it will be valuable to you 
to take the time to ENTER this program, both for the sake of your computer 
education as well as the fun of making your own melody. 



Dimension 
subscripted 
variable for note, 
duration, and row 




REM *** MAKE A MELODY 

1 REM -=- HERB MOORE 

10 REM *** STRING VARIABLE 
20 DIM Af (5) 

30 REM *** SUBSCRIPTED VARIABLES 
40 DIM N(10) 
50 DIM DUR(10) 
60 DIM ROW (10) 



Subroutine to enter 
graphics mode and 
draw staff 



70 REM *** DOES GRAPHICS 
GOSUB 1010 
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For-next loop to 
assign values to 
subscripted 
variables 



100 REM *** ENTERS NOTES IN ARRAY 

110 FOR Z = l TO 10 

120 PRINT "TYPE C, D, E, F" 

130 PRINT "G, A, B, OR CI" 

140 INPUT A$ 



Gives letter a note 
value and a row 
value 



Assigns row to 

subscripted 

variable 



Assigns duration, 
to subscripted 
vari able 



200 REM 
210 IF A 
215 IF A 
220 IF A 
225 IF A 
230 IF A 
235 IF A 
240 IF A 
245 IF A 




Assigns note value 
to subscripted 
variable \_ 



FROM A LETTER TO A NUMBER 

C" THEN 310 

D" THEN 320 

E" THEN 330 

F" THEN 340 

G" THEN 350 

A" THEN 360 

B" THEN 370 

CI" THEN 380 



290 GOTO 910 

300 REM *** VALUES FOR NOTE AND ROW 

310 N=121:R0W = 66 

315 GOTO 510 

320 N = 108:ROW = 63 

325 GOTO 510 

330 N = 96:ROW = 60 

335 GOTO 510 

340 N = 91:R0W = 57 

345 GOTO 510 

350 N = 81:R0W = 54 
355 GOTO 510 
360 N=72:R0W = 51 
365 GOTO 510 
370 N = 64:R0W = 48 
375 GOTO 510 
380 N = 60:ROW = 45 
385 GOTO 510 

500 REM *** SUBSCRIPTED VARIABLES 

510 N(Z)=N 

520 R0W(Z)=R0W 

530 PRINT "TYPE 1 TO 4 FOR DURATION" 

540 PRINT "1 IS A SHORT DURATION" 

550 PRINT "4 IS A LONG DURATION" 



-- 560 REM *** ASSIGN DURATION 
570 INPUT DUR 
L— 580 DUR(Z)=DUR*25 
-— 590 NEXT Z 
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Moves column 
with each new 
subscript 



From line 520 



Middle C need 
extra staff Line 




600 REM *** PLAYS THE NOTES - 

610 FOR Z=l TO 10 

620 SOUND 0,N(Z) , 10,10 

630 C0L=12*Z 

640 R0W=R0W(Z) 

650 IF N(Z)=121 THEN 810 

660 GOSUB 2010 

670 FOR P= 1 TO DUR ( Z ) : NEXT P 

680 NEXT Z — 

700 REM *** PLAYS IT AGAIN 
710 GOSUB 1010 
790 GOTO 610 



800 REM *** STAFF LINE FOR MIDDLE C 
810 PLOT COL-1,66 
820 DRAWTO COL + 7,66 
830ROW = 66 
840 GOTO 660 



Loop to 
play notes 



Wrong letter 



■J 



900 REM *** INCORRECT LETTER 

910 SOUND 0, 10,2,10 

920 FOR P = l TO 25 : NEXT P 

930 SOUND 0,0,0,0, 

940 PRINT "SORRY, I CAN"T PLAY" 

950 PRINT A$ 

960 PRINT "WAIT FOR NEXT INSTRUCTION' 

970 FOR P= 1 TO 400 : NEXT P 

980 GOTO 120 



Graphics mode 
and staff 



Draws notes 



1000 REM *** SET UP GRAPHICS 

1010 GRAPHICS 7 

1020 COLOR 1 

1030 SETCOLOR 4, 11, 12 

1040 REM *** DRAWS STAFF 

1050 FOR R0W = 36 TO 60 STEP 6 

1060 PLOT 10, ROW 

1070 DRAWTO 140, ROW 

1080 NEXT ROW 

1090 RETURN 

2000 REM *** DRAWS NOTE 
2010 PLOT COL, ROW 
2020 DRAWTO COL + 3 , ROW-3 
2030 DRAWTO C0L + 6.R0W 
2040 DRAWTO COL +3.R0W + 3 
2050 DRAWTO COL, ROW 
2090 RETURN 
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In the beginning, the program dimensions a string variable at line 10 so 
you can enter for the note. 

At lines 40 through 60, subscripted variables for note, duration, and row 
are dimensioned. Line 80 executes a subroutine to enter a graphics mode 
and draw the music staff. 

The FOR-NEXT loop in lines 110 through 490 will assign values to each 
of the three subscripted variables we are using in the program. For example, 
let's say when the instructions to type a letter appear in the text window, 
you type the letter F. A$ will then become "F" at line 140. Then at line 225 
the IF-THEN statement will branch the program to line 340, where N is 
given a value of 91 and ROW is given a value of 57. 

At lines 510 and 520, these values are assigned to subscripted variables: 

510 N(Z)=N 
becomes: 

510 N(l)=91 
and: 

520 R0W(Z)=R0W 
becomes 

520 R0W(1)=57 

Then the instructions to type a number for duration appear in the text 
window. Suppose you type a 3 here. Line 570 becomes: 



570 DUR(Z)=DUR*25 
570 DUR(1)=3*25 



or: 



570 DUR(1)=75 

Finally, line 580 goes back and picks the next subscript. To check your 
understanding of this program, answer the following questions: 

1. If the second time through the loop in lines 110 through 490 
you type "B", which IF-THEN statement will find a match 
and branch to another line? 

2. After N and ROW have been given numeric values at line 370, 
what will happen at line 510 and 520? 

3. If you type 4 for the duration when the instructions appear, 
what will be the value of DUR(2) in line 570? 
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1. Line 240 will branch to line 370 

2. 510 N(Z) = N 
520 N(2) =64 
520ROW(Z) = ROW 
520ROW(2) = 48 

3. 570 DUR(2) = 100 

Once you've entered ten notes, with a duration for each one, the entire 
sequence is played by the loop from 610 to 710. 

Since we have entered "F" for N(l), the SOUND statement in line 610 
will play a note value of 91 the first time through the loop. At line 630 COL 
is given a value multiplying 12 times the subscript Z, in this case: 

12 * 1 = 12 

Row (1) has already been given the value 57 at line 340. Since N(l) does 
not equal 121, line 650 will be ignored. Line 660 goes down to the sub- 
routine at line 2020, which draws the note at column 12, row 57. It returns 
to line 660, which goes back to line 610 and picks the next value for the 
subscript Z; that is (2). Again, to check your understanding, answer these 
questions: 

1. Since we typed "B" for the second note, what will happen at 
line 620? 

2. What will happen to ROW (2) in line 540? 

3. Since this is the second time through the loop and Z has a 
value of 2, what will be the value assigned the COL in line 
630? 

1. Line 620 will play a note value of 64 

2. 640ROW(2) = 48 

3. 630 COL = 24 

Remember that middle C requires a line below the staff. Suppose on the 
third time through the loop you type "C" for the note. In this case, N is given 
a value of 121 and N(3) becomes 121 in line 510. Then when the loop to 
-play the notes is being executed in lines 610 through 680, the conditions of 
the IF-THEN decision in line 650 will be met. That is, N(3) does equal 121, 
so the program branches to line 710 and executes the routine to draw a line 
below the staff. It then goes back to line 660 and continues as before. 

If you type some letter other than C through C for the note, none of the 
conditions in the IF-THEN statements in lines 210 through 245 will be met. 
Thus 290 will branch the program to line 910 and execute the "Incorrect 
Letter" routine there. It then goes back to line 120 and lets you try again. 

Line 610 begins the loop to play the notes. Once all ten notes have 
played, line 710 executes the subroutine to enter the graphics mode, again 



WATCH THE MUSIC PLAY 215 



drawing the staff and thereby erasing everything else on the screen. When 
the computer returns to line 610, it repeats the melody and the notes. 

In this chapter, you have learned to assign values for notes and plot 
points to a group of subscripted variables, called an array. The subscripted 
variables can then be used to play different sequences of notes and draw 
them on the music staff. This is just one example of how an array of 
subscripted variables might be used. Another possible use is suggested in 
the challenges at the end of the Self-Test this chapter. 

If you've worked your way carefully through this book, you have un- 
doubtedly begun to realize the enormous potential of your ATARI 400 or 
800 Computer as an artistic and musical instrument. We hope you will find 
yourself returning to the pages of this book again and again for ideas you 
can expand upon in your own way. 

Artistic programming, like many things, is something you can enjoy 
more as you get better. And of course, the better you get, the more you'll 
enjoy. 

Self-Test 

1. Give the following program an appropriate DIM statement at line 10 
to store the eight notes in an array and play them: 

100 REM *** READS NOTE VALUES 
110 FOR E=l TO 8 
120 READ N 

150 REM *** PUTS NOTE VALUES IN ARRAY 
160 N(E)=N 
170 NEXT E 

200 REM *** PLAYS NOTES 
210 FOR E=l TO 8 
220 SOUND 0,N(E) , 10, 10 
230 FOR P= 1 TO 200 : NEXT P 
240 NEXT E 

300 REM *** PLAYS IT AGAIN 

310 GOTO 210 

400 REM *** NOTE VALUES FOR C SCALE 

410 DATA 121, 108,96,91 

420 DATA 81,72,64,60 

2. As the note values are being read from the DATA statements in the 
above program, what value will be assigned to the subscripted vari- 
able N(4) in line 160? 
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3. Add another FOR-NEXT loop at lines 260 through 290 to play note 
values: 

N(7) N(5) N[3) N(l) 
64 81 96 121 

in that order. 

4. If rather than reading the note values into the array, you wish the user 
to be able to enter values for each subscripted variables, you can drop 
lines 400 through 420, and change line 120 to: 

120 

5. In the program in Question 1, to have the computer randomly select 
from the note values in the DATA statements, drop line 240 and 
change line 210 to: 

210 



6. Fill in line 180 in the program below to assign values to the sub- 
scripted variables for duration: 

10 DIM N(10) 
20 DIM DUR(10) 

100 REM *** ENTER NOTES IN ARRAY 

110 FOR E=l TO 8 

120 PRINT "ENTER NOTE VALUE" 

130 INPUT N 

140 PRINT "ENTER DURATION" 

150 INPUT DUR 

160 REM *** SUBSCRIPTED VARIABLES 

170 N(E)=N 

180 

190 NEXT E 

200 REM *** PLAYS NOTES FROM ARRAY 

210 FOR E=l TO 8 

230 SOUND 0,N(E) , 10, 10 

240 FOR P=l TO DUR(E) : NEXT P 

250 NEXT E 

300 REM *** PLAY NOTES AGAIN 
310 GOTO 210 
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7. If you wish to enter and play sixteen notes in the following program, 
you must change three lines. What changes must you make? 



IS? DIM N(8) 
20 DIM A$(5) 

100 REM ** ENTERS NOTES IN ARRAY 
110 FOR Z=l TO 8 
120 INPUT A$ 



200 REM ** 


FROM A LETTER TO A NUMBER 


210 IF A$ = 


'C" THEN N=121 


220 IF A$ = 


'D" THEN N = 108 


230 IF A$ = 


'E" THEN N = 96 


240 IF A$ = 


'F" THEN N = 91 


250 IF k% = 


'G" THEN N = 81 


260 IF A$ = 


'A" THEN N = 72 


270 IF A$ = 


'B" THEN N = 64 


280 IF A$ = 


'CI" THEN N = 60 



300 REM ** SUBSCRIPTED VARIABLE 
310 N(Z)=N 

400 REM ** PLAYS THE NOTES 
410 FOR Z=l TO 8 
430 SOUND 0,N(Z) ,10, 10 
440 FOR P = l TO 100: NEXT P 
450 NEXT Z 

500 REM ** PLAY IT AGAIN 
510 GOTO 410 

8. If when the program above is run. you type the letter "D" for the first 
note and the letter "F" for the second note, what musical interval have 
you played? 



Answers 



1. Line IK) becomes: 



10 DIM N(8; 



The subscript in parentheses can be greater than 8 but not smaller. 
2. 91 
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3. Something of this form: 

260 FOR E = 7 TO 1 STEP -2 
270 SOUND 0,N(E) . 10, 10 
280 FOR P=l TO 200 : NEXT P 
290 NEXT E 

4. INPUT N 

5. Line 210 should be: 

210 E = INT(8*RND(1) +1) 

6. Line 180 becomes: 

180 DUR(E) = DUR 

7. Change lines 10. 110, and 410 to: 

10 DIM N(16) 

110 FOR Z = 1 TO 16 

410 FOR Z = 1 TO 16 

8. A third 

Challenges 

1. Here are the note values and row positions of lour more notes in the 
next octave of the C major scale. Continue the pattern established in 
lines 210 through 385 to assign the values for note and row to sub- 
scripted variables. Then RUN the program and enjoy a wider range of 
notes from which to make your melody. 

II G1 

45 40 

36 33 

2 . Look at Chapter 5 and see if you can think of some interesting ways to 
change the shape of the notes as they are played. 

3. Draw a mountain range similar to the one in Chapter 8 using an array 
of subscripted variables for the mountain peaks. 





I)! 


El 


Note 


53 


47 


Value 






Row 


42 


39 


Value 
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Here are a few program listings that make use of concepts you have learned 
in this book. Some of them might be useful to you as subroutines in larger 
programs you are writing. We encourage you to vary different parameters in 
each of these programs and to write other programs that expand upon these 
ideas. 

You know best what you want to see and hear and if you persist, you'll 
probably be able to make it happen! 

This program randomly picks and plays a note value from 25 to 250. Try 
it with 25 notes from elsewhere in the note spectrum. (See Chapter 8.) 

100 REM *** FLIGHT OF THE HONEY BEE 

110 N = INT(25*RND(l)+225) 

120 SOUND 0,N, 10, 10 

130 FOR P=l TO 5 

140 NEXT P 

150 GOTO 110 

Enter a number from to 255 to hear different machine sounds. Add a 
pause loop between lines 230 and 260 to get a slower machine sound. 

REM *** MACHINE SOUND 

10 INPUT N 

110 FOR CYCLE=1 TO 100 

210 FOR L=15 TO STEP -5 

220 SOUND 0,N,4,L 

230 SOUND 1,N,8,L 

260 NEXT L 

310 NEXT CYCLE 

510 GOTO 10 
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If this routine doesn't give you just the right sound for your space game, 
play around with the values for N, L. and STEP in lines 110 and 120. Don't 
forget to use INPUT statements to make it easy on yourself. (See Chapter 5.) 

100 REM *** STUCK IN SPACE 
110 FOR N = 100 TO 140 STEP 5 
120 FOR L = 5 TO 15 STEP 5 
130 SOUND 0,N, 10.L 
140 SOUND 1 , N/2 , 10 , 15-L 
150 SOUND 2, N/4, 10, L 
160 SOUND 3 , N/8 , 10 , 15-L 
170 NEXT L 
180 NEXT N 
190 GOTO 110 

The following program allows you to ENTER a note value. It then plays 
that note and its octave with voices and 2. Voices 1 and 3, meanwhile, 
play a note just slightly lower than N and it's octave N/2. This creates the 
pulsing sound heard when the program is run. The pulses are called "beat 
frequencies" or simply "beats." 

50 INPUT N 

100 REM ** PHASE SHIFT 
120 SOUND 0,N,10,10 
130 SOUND l.N-l-1, 10,10 
140 SOUND 2, N/2, 10, 10 
150 SOUND 3, N/2+1, 10, 10 
210 GOTO 210 

To hear an interesting sequence of "beats," ENTER and RUN this prog- 
ram, which is similar to the one above but enters the values for N with a 
FOR-NEXT loop. Can you think of a way to use the same concept with 
READ and DATA statements io ENTER the note values? How about with 
subscripted variables in an array? 

100 REM ** PHASE SHIFT 
110 FOR N = 50 TO 250 STEP 10 
120 SOUND 0,N,10, 10 
130 SOUND 1,N+1, 10,10 
140 SOUND 2, N/2, 10,10 
150 SOUND 3, N/2 + 1, 10, 10 
160 FOR P= 1 TO 1000 : NEXT P 
170 NEXT N 
210 GOTO 110 



APPENDIX A 221 



This program creates a nice visual effect as it is being drawn, as well as 
when it is completed. Get some variety by changing the STEP function in 
line 110. 

REM *** MANDALA 

10 GRAPHICS 24 

20 COLOR 1 

30 SETCOLOR 4,4,8 

100 REM *** DRAWS THE LINES 

110 FOR ROW=10 TO 180 STEP 10 

120 COL=150 

130 PLOT 0,90 

140 DRAWTO COL, ROW 

150 PLOT 319,90 

160 DRAWTO COL, ROW 

190 NEXT ROW 

200 REM *** KEEPS IT ON SCREEN 

210 GOTO 210 

Here's another program that's fun to watch being drawn as it fills the 
screen with little diamonds. Some interesting variations can be created by 
making changes in the STEP functions in lines 11(3 and 120. Also try 
different figures in lines 210 through 320. 

REM *** DIAMOND GRID 

10 GRAPHICS 24 

20 COLOR 1 

30 SETCOLOR 2,0,2 

100 REM *** LOOPS TO REPEAT FIGURE 

110 FOR COL=10 TO 300 STEP 10 

120 FOR ROW = 10 TO 180 STEP 10 

200 REM *** DRAWS THE DIAMOND 

210 PLOT COL, ROW 

220 DRAWTO C0L + 5,R0W-5 

230 DRAWTO COL + 10, ROW 

240 DRAWTO C0L+5,R0W+5 

250 DRAWTO COL, ROW 

300 REM *** MOVES TO NEXT POSITION 

310 NEXT ROW 

320 NEXT COL 

400 REM *** KEEPS IT ON SCREEN 

410 GOTO 410 
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The following program uses two different FOR-NEXT loops, each of 
which calls on the same subroutine to draw a series of different-sized 
squares. Try it with some different figures. 

1 REM ** COLOR SQUARES 

10 GRAPHICS 24 

20 COLOR 1 

40 SETCOLOR 4,4, 14 

100 REM *** SMALL SQUARES 

110 FOR X=l TO 50 STEP 10 

120 A=50 

130 GOSUB 600 

140 NEXT X 

150 FOR Z=l TO 100: NEXT Z 

200 REM *** LARGE SQUARES 

210 FOR X = 5 TO 95 STEP 20 

220 A = 100 

230 GOSUB 600 

240 NEXT X 

250 FOR Z= 1 TO 500 : NEXT Z 

300 REM *** STARTS AGAIN 

310 GOTO 10 

600 REM *** DRAWS SQUARES 

610 Y = X 

620 PLOT X,Y 

630DRAWTO X + A,Y 

640DRAWTO X + A.Y + A 

650 DRAWTO X.Y + A 

660 DRAWTO X,Y 

670 RETURN 
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If you like the "echo effect" often used by John Lennon in his recordings, 
you'll probably appreciate the sound made by this program. By briefly 
turning the voice on and off in lines 210 through 240, just before the decay 
loop starts, an echo is created. 

0REM *** ECHO EFFECT 
100 REM *** READ NOTES 
110 FOR CYCLE=1 TO 8 
120 READ N 



200 REM *** PLAYS NOTE WITH ECHO 


210 SOUND 0,N, 10, 15 


220 FOR P = l TO 5: NEXT P 


230 SOUND 0,0,0,0 


240 FOR P=l TO 5: NEXT P 


249 REM 


250 FOR L=15 TO STEP -1 


260 SOUND 0,N, 10, L 


270 NEXT L 


300 REM *** PLAYS ANOTHER NOTE 


310 NEXT CYCLE 


320 RESTORE 


400 REM *** STARTS OVER 


410 GOTO 110 


500 REM *** THE NOTE VALUES 


510 DATA 91, 121,72,64 


520 DATA 121,81,60, 121 
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Values for Musical Notes* 




Note 


Numeric Value 


High notes C 


29 


B , 
A# or B» 


31 


33 


G# or 4> 


35 

37 


C , 
F# or Ct> 


40 


42 


F 


45 


D# or L : l> 


47 
50 


C# or d> 


53 

57 


C 


60 


A# or Bt 


64 
68 


G# or Al> 


72 
76 


G k 
F# or G<> 


81 


85 


F 


91 


E 


96 


D# or El> 


102 


C# or d> 


108 
114 


Middle C C 


121 


B k 
A# or B' 


128 


136 


A k 
G# or A<> 


144 


153 


G k 
F# or G'' 


162 


173 


F 


182 


D# or El> 


193 


204 


Low notes D 

C# or DP 


217 


230 


C 


243 



"From the ATARI 400/800'" BASIC Reference Manual, page 58. 
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Plot Points for ATARI Graphics Modes 



Graphics Mode 
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NOTES: Text Mode - When the machine is turned on, it is in Graphics Mode until otherwise specifi ed. 
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Graphics Mode 1 





1 


4 


8 








2 


16 20 




J 


u 


J u 


U L 


4 


J 








8 


3 






center 10,10 
(if you have a 
text window) 

- center 10,12 




















X 


















12 






X 


















16 




20 


J 






21 


24 


1 






24 



text window 



NOTES' Text Mode for large colored letters. You must use device #6. {See Chapter 9} 
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Graphics Mode 2 
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NOTES- Text Mode for colored letters. You must use device #6. (see Chapter 9 1 
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Graphics Mode 3 
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NOTES' For same size plot points without text window, use GRAPHICS 3 + 16. 
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NOTES' ^ or same size Pl ot points without text window, use GRAPHICS 4 + 16. 
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NOTES' F°r same size plot points without text window, use GRAPHICS 5 + 16. 
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For same size plot points without text window, use GRAPHICS 7 + 16. 
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Graphics Mode 1 and 2 (Text Modes With Fancy Letters) 
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NOTE: A single color listed in the third, fourth, or fifth column indicates the default color for that combination of 
COLOR and Color Register. For example, in graphics mode.'!, a combination of COLOR 1 and Color Register 2 will 
result in the figure remaining orange, regardless of the value entered for Hue in the SETCOLOR command. 
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Graphics Mode 3, 5, 7 
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NOTE: A single color listed in the third, fourth, or fifth column indicates the default color for that combination of 
COLOR and Color Register. For example, in graphics mode i, a combination of COLOR 1 and Color Register 2 will 
result in the figure remaining orange, regardless of the value entered for Hue in the SETCOLOR command. 
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Graphics Mode 4 and 6 
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NOTE: A single color listed in the third, fourth, or fifth column indicates the default color for that comhination of 
COLOR and Color Register. For example, in graphics mode 3, a combination of COLOR 1 and Color Register 2 will 
result in the figure remaining orange, regardless of the value entered for Hue in the SETCOLOR command. 
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The GTIA Chip: 
Advances and the Future 



The design of the ATARI 400 and 800 computers provides superior sound 
and graphics, among personal computers. This is partly because, while 
other personal computers have tried to include the normal functions of the 
computer as well as the sound and graphics in one processing unit (often 
called a chip), ATARI uses separate chips for sound and graphics. 

As this book was going to press, ATARI announced the existence of a new 
chip, the GTIA chip, on all ATARI 400 and ATARI 800 computers released 
in 1982. 

The GTIA will replace the CTIA chip currently controlling graphics 
displays in the ATARI 400 and 800 computers. The GTIA functions are the 
same as the CTIA chip in graphics modes through 8. However, three new 
graphics modes are available with the new chip: graphics modes 9, 10, and 
11. These additional modes are graphics modes only; no text can be dis- 
played on the screen. Points plotted on the screen in these modes are 
rectangular in shape, about four times wider than they are high. Using 
graphics modes 9 through 11 will allow for a greater variety of hues and 
luminance on the screen. 

Although the graphics capability of the machine will be greatly en- 
hanced, most of these functions are not executed in BASIC. The new chip 
does not affect functions of the graphics mode, COLOR, or SETCOLOR 
commands described in this book. 

If you are, or may become, a more advanced programmer and would like 
more information about the GTIA chip, we suggest that you consult the 
publication DE RE ATARI by Chris Crawford, which is available through 
the ATARI Program Exchange (Part #90008, $19.95 plus $2.50 for shipping 
and handling). The address is: 

Atari Program Exchange 
P. O. Box 427 
155 Moffett Park Drive 
Sunnyvale, CA 94086 

Good luck with your ATARI Sound and Graphics program. 
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